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A SYSTEM FOR COLLECTION, PREPARATION, TRANSLATION, 
AND COMPOTER REDUCTION OF DIGITAL HYDROLOGIC DATA 


by Jan C. Carr^ 


INTRODUCTION 


A system for collection, preparation, translation, 
and computer reduction of digital hydrologic data has 
been developed at the Northeast Watershed Research 
Center, University Park, Pa, This system represents a 
significant improvement over tlie tedious handwork of 
visually recording data from a pen trace chart. 

The use of digital-recording hydrologic gages pre- 
sents several problems in the development of a data- 
processing system. (1) Visual inspection of recorded 
data to detect instrument abnormalities and correction 
or identification of such malfunction errors is practi- 
cally impossible. Thus, operators rely on the computer 
for detection of these errors more so than on analog 
chart data. (2) Tire amount of recorded data produced 
is large, because the readout device operates continu- 
ously; however, this volume of records is easily handled 
by higli-speed computers, (3) One advantage of this 
recorder is minimum hunian-contributed errors. This is 
due to not having to transfer and correct data from 
charts to computer input form manually. 

Corrections may be made upon digital data records 
manually, but these are normally restricted to areas 
that tapes may have torn or tliat may have been 
disfigured by the recorder. In tills case, the proper gage 
reading must still be recognizable. (4) The ability of 
tliis recorder to run continuously and unattended for 
long periods of time is a great advantage, because fewer 
site visits are necessary, and less time is needed to 
identify, process, and store the records. 


^Hydrologic technician, Northeast Watershed Research 
Center, Northeastern Region, Agricultural Research Service, 
U.S. Department of Agriculture, University Park, Pa. 


Tlie following sections describe this data-collecting 
and processing system for digital hydrologic data. Field 
data collected from the Mahantango Research Water- 
shed located near Klingers town, Pa., was used to 
illustrate the operation of the system. A flow diagram 
of the system is shown in figure 1 . 



Figure 1,-A flow diagram of the digital hydrologic data- 
handling system. 
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DIGITAL-RECORDING GAGES 


The type of digital recorders used on the Mahan- 
tango Watershed network are the Fischer and Porter 
precipitation gage (fig, 2), water level gage (fig. 3), and 
tide gage (fig. 4 )} 

The precipitation gage mechanically converts the 
depth of accumulated precipitation onto a binary- 
coded, punched paper tape at selected time intervals. 
Tiiis giige has a standard 8 -inch orifice, collector 
capacity of 20.0 inches, and recording accuracy to the 
nearest 0,1 inch. A rain trace sensor is incorporated 
within the gage collector to provide a more accurate 
record of the beginning and ending of precipitation 
events, Tliis sensor operates normally during summer 
months. Timing for the collection of precipitation is 
done by a 5-minute, solid-state electronic timer driven 
by a d.c. power supply. The 5-minute-interval punch- 
out provides 105,000 readings per gage during a 1-year 
period. Of these readings, approximately 500 will 
suffice to describe precipitation events that occurred 
during the year. 

The water level gage incorporates a float, counter- 
balance pulley mechanism to transfer streaniflow 
depths onto punched paper tape. Tliis gage operates on 





Figure 2. -A digital-recording precipitation gage. 
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Fischer and Porter Company. Precipitation gage-recorder, 
Instr. Bill, 35-1558-1, punclicd-tupe level recorder, Instr, Bui. 
"^^-1541-4, Rev, 3. tide gage, Instr. Bui. 35-1550, Rev. 1. 1970. 


Figure 3, -A digital-recording water level gsige (streaniflow). 




Figure 4.- A digital-recording tide gage (ground water levels). 
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a 5-niinute-interval punchout s the precipitation gage. 
Approximately 10,000 of ino 105,000 readings are 
needed to depict the fliictuations of stream depths 
during the year. 

The tide gage for recording ground water well levels 
differs from the water level gage. The gage uses a 
counterbalance spring in place of a counterweiglit to 
facilitate measuring water levels in a well pipe, where 
sufficient room is not available for a counterweiglit. 
Both the tide gage and the water level gjige record 


continuous water levels to the nearest 0.01 foot up to 
50.00 and 99.99 feet, respectively. The tide gage 
operates on a 30''niinutc-time -interval punchout, with 
each of the 17,520 readings per year used to describe 
continuous well levels during the year. 

Each gage’s punchout mechanism may be operated 
manually by means of a switch. Tiiis manual operation 
provides a test on punchout alignment and gage time 
vemJs clock lime synchronization. 


DIGITAL PUNCH PAPER TAPE 


The punch paper tapes shown (fig. 5) have a width 
of 2 1/8 inches, and a length that varies with available 
time scales. One day’s record with a 5-minute time 
scale requires 28 5/8 inches of tape length, while a 
30-minute time scale requires 4 7/8 inches. 

The paper tape is divided along its length into 
crosswise lines wliich represent the clock time at wliich 
punchout occurs (see fig, 5). A 5-minute tape is 
identified at 10-minutc-increments in the center of the 
tape. Hour lines are marked by heavier lines and are 
identified in the military time scale. Each day on the 
tape is consecutively stamped with red numerals. These 
provide a count of the total tape days elapsed from 
beginning to end of a record period. 





Figure 5, -Digital punch paper tape usage. 


The tape is divided into 16 channels, two wide black 
lines, an area along the tape center that contains the 
time interval markings, and large sprocket drive holes 
that arc used by the recorder to feed paper tape. The 
16 channels are subdivided into four groups of four 
channels each. In the individual groups, channels are 
binary coded “1-24-8.” 

Any number can be represented by the appropriate 
selection of these codes. Those codes not selected are 
zero. For example, using the tape for precipitation (fig, 
5 A), a summation of the farthest right-hand group of 
punched holes establishes the tentlis digit. The next 
group, moving from rigid to left, gives the units digit, 
and the tliird group provides the tens digit. Since the 
recording accuracy of this gage is to the nearest tenth 
of an inch, and since capacity is 20 inches, these three 
groups provide a three-digit precipitation readout, 
leaving the hundreds digit, or the fourth and final 
group, unused. Normally, during the summer months 
when the rain-trace sensor is operative, a trace of rain is 
noted by a trace punchout in the binary 8 channel of 
the fourth group. 

The punched paper tape (fig, 5B) used in stream- 
flow recording is identical to the tape in figure 5A, 
except that the four groups provide a different 
numerical representation, The first group represents 
the hundredths digit; the second group, the tentlis 
digit; the third group, the units digit; and the fourth 
group, the tens digit of a four-digit number. The 
ground water level punch paper tape (fig. 5C) differs 
from the streamflow tape (fig, 5B) only in its time 
scale, The two wide black lines shown on each tape are 
channels for the placement of translator alignment 
holes, wWch are automatically punched in the tape 
during each 5- or SO-minute-punchout to provide 
proper tape alignment during the paper-tape-to- 
magnetic-tape translation. 
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GAGE LOCATION IDENTIFICATION 


A one-half-squarcniile grid system was developed 
for the Mahantango Watershed to identify eaeh gage by 
a numerieal location code (fig. 6). The north to south 
grid lines represent parallel longitude, wliile tlie east to 
west lines represent parallel latitude. Grid squares were 
lettered alphabetically A througli U from north to 
south, and numbered 1 to 65 from east to west, 
respectively. Further subdivision of individual grids can 
be provided to give more accurate gage locations. 

A prefix was used in conjunction with the gage 
location to indicate the type of instrument as follows. 
R- An individual rain gage location. 

M - Meteorologcal sites (rain gage, evaporation, 
wind, humidity, and temperature station). 

G - Open-channel stream-gaging station. 

W - Weir-control stream-gagng station. 

A - Aquifer (ground water well station). 

Example: RG32 is a rain gage recorder station. R 
designates rain gage, and G32 is the grid square 
location code of the gage on Line G and Column 32. 


A waterehed identification number, developed by 
the Agricultural Research Service, was used to desig- 
nate the State and watershed location within the State. 
The State location number assigned to the Mahantango 
Watershed, Pa., is 16. Each of the six subwatersheds 
within Mahantango Watershed were numbered 0.01 
througli 0.06, and the watershed identification num- 
bers, referred to as IWID, are as foilows; 


Subwatershed 

stream Gage 

IWID 

Mahantango Creek 

GR04 

16.01 

Deep Creek 

W016 

16.02 

Little Mahantango Creek 

GK27 

16.03 

Pine Creek 

GM27 

16.04 

Run Stella Run 

WJ30 

16.05 

Three-Square Mile 

WE38 

16.06 


The combination of watershed identification and gage 
location numbers provides sufficient numerical repre- 
sentations of a particular gage witliln a certain water- 
shed. 



Figure 6.-The gage location grid system. 
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PAPER TAPE DATA COLLECTION 


The maximum paper tape collection period varies, 
depending upon the punchoiit timing cycle. Experience 
with the Mahantango network has indicated that a 
monthly collection period is most cfficieiU when those 
gages are operated on a 5-minute time cycle, and 
twice a year for those gages on BO-minute cycles. The 
punched records are stored by the gage on a takeup 
spool, with the beginning of the collection period 
located on the inside of the rolled tape. 

A 10- to 12-inch length of unpiinchcd tape precedes 
the punched record. The luipunched area is used to 
record notes such as gage number, beginning date, 
time, and punched value. Prior to the start of record- 
ing, a series of six or more manually initialed punch- 
outs are placed in tlie tape in the area beyond the 
notes. Tliesc punchouls supply the feed alignment 
holes required during the translation procedure. A red 
felt-tip marker line is drawji across the beginning 
punchout of the collection period. This line separates 
the first gage puncliout time interval from the preced- 
ing manual punchouts and provides a visual notation of 
tile actual beginning of record. 

The current paper tape record begins with the time 
that the previous tape ended, resulting in duplicate 
punchouts between eacli collection period. The pur- 
pose for following this procedure is to establish a 
standard method for removal and installation of the 
paper tape records. The computer reduction step is 


designed to take into account that duplicate punchout 
times exist between each tape record. 

Two exceptions to this standard method may occur. 
A complete loss of data, due to gage failure, would 
require the following tape to begin with the present 
watch time, and a special notation of the data loss 
would be made (sec Lo.ss Data Cards, “Computer Input 
Section”). A time loss or gain, either of which can 
occur with the digital gage, will also require a special 
notation. In this case, the beginning punchout of the 
following paper tape will not be identical with (he 
ending punchout of (he previous tape, but the new 
record would begin with the same watch time as the 
ending watch time of the preceding period. The special 
notation in the form of a numerical error code, 
described under the “Paper Tape Data Preparation” 
Section, would be noted on the tape record which had 
the punchout time loss or gain. 

With the established method of tape removal and 
installation, the manual punching mechanism is used to 
synclironr/c each paper tape collection period to 
standard watch time. A minimum of 6 inches of 
unpiinchcd tape must follow each collection period. 
This length is needed during the translation procedure. 
A field check list (table 1) is kept of the paper tape 
records for eacli gage. The field notes supply a 
complete gage history. 
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TABLF. ].-A field check list depicting information from a precipitation gage recorder 


FIELD CHEOC LIST FOR F&P RECORDERS 

NEWRC-1 


IHSTRUMENT NO: A 78 ,, , ^ 

IIM »Oi //-C,9-2. uatbrshed: 

LOCATION NO: M-fSI LOCATION: £a.rL jSr^uih 


DATE TO BE SERVICED 

- 1 1 ' ■' 

__i_ L. 


DATE ACTUALLY SERVICED 

t>X'0S-7jl . 

03-^o-7X, 




SYNCHRONIZATION 















Tape Day No* 

TARE SUPPLY 

ML JJTBjJIMI 

wKMwrzxm 

^ 

II 

imiiiiiMiim 

1 1 


Supply Tape Replaced 
Tape No. 

Days Remaining on Tape 
Record Removed 

Notation on Tape 

INSTRUMENT READING 





llo^ 

^Orh 












1 






HHIHIHl 

! 

I 

!■■ — 






— 


“ITt ! 

9,7 ' 




Punchout In Line 
Punchout Clean 
Sensitivity Checked 
Range Adjusted 

Zero Adjusted 

Collector Emptied 
r*a 1 ^ H Tft t Ion Made 

yes 





— — ! 

^ 




ves 

yeJ ' 





HK2QH 





maaiBkAmPKaifSkJFm 





wraisfm 

UfJOnEBBESM 





nkmaum 





battery supply ' 


I 

-J 



Battery Replaced 1 

Voltage Across Battery ' 
Voltage Across Motor 
ma Drain of Timer 
ma Drain at Punchout 

nPERATION 

Evap. Suppression Oil 
Hdnaimiot' Fltild Added 


, 1 




7^ 1 . 1 





7.7 \ 




: 



/VS' 

/js 1 





1 

1 













Contacts Cleaned 

in Collector 


eS-//>-7X. 




A)d 

NO 

1 



Mechanical Malfunction 

OPERATION 

AJO 

Wo 







Trace (In or Out) 

Trace Battery Voltage 
Funnel (In or Out) 

A rt ^ 


aWZWCMBiHHB 




'^^raSSBiBB 



rivfT' 





i Ua 



ftnCXl Lt3B4C XHO 

GAGE SERVICED BY 

M*P 

Al.^ 1 

U 

. 


(D(2) (Make Additional Comments on Back) 
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PAPER TAPE DATA PREPARATION 


A hand-operated roller is used to rewind the paper 
tape record to place the beginning of the record period 
on the outside of the roll. The hollow core of the 
rewound tape must be at least three-fourtlis of an inch 
in diameter to meet the requirements of the translator 
supply spool. During the rewinding of the tape* a visual 


scan is made for detectable errors. A four-digit, 
error-coding system was developed for use in identify- 
ing any gage malfunctions, such as time loss or gain. 
Each paper tape record is coded by one of these error 
codes (App, 1). The rerolled paper tape records are 
labeled (fig. 7) as to State watershed number (JVVID), 



Figure 7, -A paper tape record identification label. 
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gage location number, trace operation, punchout time 
interval, beginning and ending date, time, punched 
value, and error code. 


The information from the tape identification labels 
is transferred to a ‘‘paper tape identification form” 
(table 2). Each horizontal line represents a record 


TABLE 2,-Paper tape identification form {precipitation, streamflow, and ground water) 
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period (paper tape). Cards keypunched from the form 
serve as program controls during the computer reduc- 
tion of the paper tape record. The form heading 
contains space for the State, the State watershed 
location number (IWiD), watershed name, and year of 
data collection. Each record is identified as follows; 


Card Column.s 

Identification 

1-4 

The paper tape error code. 

5-16 

The gage location number. 

17-18 

The punchout time interval. 

19 

The type of data. 

20 

The trace indicator code. 

21-32 

Beginning time-month, day, year, 
liour, and minutes, respectively. 

33-36 

The first punclied-data value. 

37-48 

Ending time-month, day, year, hour, 
and minute, respectively. 

49-52 

The last punched-data value. 

53 

Translation error codes. 

54-56 

Computer control codes. 

57-62 

Mean sea level (ground water record- 
ings only), 


In addition to the above information, optional daily 
snowfall records are kept of days with precipitation 
other than rainfall. This record is used to identify days 
of solid precipitation on the computer output data. 
The information is recorded upon a snow date record 
form (table 3). This form contains the date and type of 


precipitation where the key at the bottom of the form 
explains the proper coding used under the “Type of 
Precipitation” column. 

After the coinplelion of rewinding, scanning, and 
identifying the paper tape records and the recording of 
appropriate information onto forms, the tapes are 
transported and stored in a 10 l/2-by-7 l/2-by-2-inch 
flat polyethylene freezer box. Each box can hold 
1 -year’s record from 5-mimite-interval gages. 

TA BL 3. -iS ) V date fo rm table 


Month Day Year Type Notes 


1 

2 

3 

4 

5 

6 

7 

8 


0 

1 

2 

8 

7 

0 

N 


r \ am pie : Ra 1 n aail S lunv 1/28/70 

0 

2 

0 

1 

7 

0 

S 


Snow 2/1/70 

0 

3 

1 

5 

7 

0 

M 


Mi.xeil Prccipitntion 3/15/70 
















































Type Key: S - Snow 
L = Sleet 

M " Mixed Precipitation (Rain, Snow, Sleet) 
N Rain anil Snow 
II ^ Mail 


PAPER-TAPE-TO-MAGNETiC-TAPE TRANSLATION 


Digital paper tape records in the original form 
cannot be used as direct input to digital computers 
without special interface equipment. Therefore, the 
paper tape data must be converted to a suitable media 
(usually cards or magnetic tape), This Center employs 
the paper-tape‘to-magnetic-tape converting method. 

The Digi-Data Model 1730 translator (fig. 8) uses 
sensing pins to read punched paper tape.^ The informa- 
tion from the binary punched holes is converted to an 
equivalent four-digit number and electronically records 
this reading on a seven-channel, 556 DPI, fBM-compat- 
ible magnetic tape. Each four-digit number represents a 
5- or 30-minute-interval gage reading, depending on the 


^Digi-Data Corporatiou. Operation manual model 1730 
converter (translator). 1970. 


data being translated. The paper tape readings are 
converted to magnetic tape at a rate of 18 paper tape 
time intervals per second. The records are automati- 
cally blocked every 1,020 digits. An Interrecord gap of 
tliree-fourths of an inch is written between each block. 
This blocking, combined with the interrecord gap, 
meets the requirements of most computer magnetic- 
tape reading devices, 

The model 1730 contains a feature for entering 
fixed data settings of either 11 or four digits. Eleven 
windows are available to enable dialing a digit into each 
window. The individual digits can range from 0 to 9. 
Two controls, numbers 1 1 and 4, provide for writing 
an 11- or four-digit number on the magnetic tape. 

The 11 -digit control is available to enter tlie label 
information from the paper tapes being translated. This 
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Figure 8, -A paper-tape-lo-magnctlc-tapc translator. 


method of entering the label information onto the 
niagtietic tape is slow and provides opportunity for 
human error. Thus, the 11-digit control is not used 
with this translation procedure, since the label informa- 
tion will be fed into the computer througli cards 
keypunclied from the “Paper Tape Idenlification 
Form” (table 2). 

The four-digit control has a twofold purpose. It is 
used to enter data from the paper tape record when 
misaligned punched readings cause the translator to 
stop. The value of the punched reading missed may be 
entered directly on the magnetic tape in the last four 
windows of tlie 1 1 windows. Since each paper tape 
record represents a different collection period and 
possibly a new error code, every paper tape record is 
translated as a separate record. To enable the computer 
to differentiate between paper tapes, a numerical code 
of 9999 is written on the magnetic tape through the 
use of the number 4 digit control. The “four 9V’ code 
signals tire end of a paper tape record and is applied 
after each paper tape’s translation. 

The original design of the model 1730 translator 
was such that zero gage readings, nonpunched values, 
could not be read. This feature allowed the translator 
to stop translation of a paper tape when (he 6-inch 
blank span at the end of the paper tape was en- 
countered. The ability to translate zero readings is 

pessary when precipitation data are being converted. 


The construction of the precipitation gage is such 
that after a collection of 15,0 to 19.9 inches of 
precipitation, the collector part must be emptied and 
the following recording period begun witli zero gage 
readings. These zero readings will be present on the 
paper tape until tlie first precipitation event. To 
provide for precipitation data translation, the model 
1730 was modified by installation of a “zero suppres- 
sion” toggle switch. This switch resides in one of two 
positions, normal or nonnormai. The normal position 
does not allow the translator to read zero values, thus 
stopping translation on encounter with unpunched 
tape, and the nonnormal position allows translation of 
zero gage values. 

The procedure for paper-tape-to-magnetic-tape 
translation can vary with the model 1730, but with 
ease of operation and speed as a criteria, the following 
step-by-step procedure is recommended: 

1. Load the magnetic tape on a supply spool that 
is located on top of the translator and hand 
threaded through the proper path to a takeup 
spool. A tape-loading diagram is supplied by the 
manufacturer. The tape spools handle varied 
sizes of computer magnetic tape up to 10 1/2- 
inch reels. 

2. Set Recorder Mode Switch to the record posi- 
tion and turn power on. The function of the 
Recorder Mode Switch is to specify one of the 
following three options: record, rewind, and 
fast forwwd wind, 

3. Press the Record Length Counter (RLC) con- 
trol. This control energizes the magnetic tape 
blocking counter. Every 1,020 digits arc 
blocked, plus an interrecord gap on the mag- 
netic tape, by the automatic blocking feature. 

4. Press Begin of Magnetic Tape (BOT) control. 
The magnetic tape advances until a photocell 
sensing liglit encounters an aluminum foil re- 
flective mark attached to the tape some 10 feet 
into the supply spool. The mark provides an 
exact starting point for recording, which en- 
ables a computer-tape-read device to index at 
the proper beginning of the magnetic tape data. 

5. Set Zero Suppression Switch to the normal 
position if reading nonzero paper tape data. Set 
to the nonnormal position to read data with 
beginning zero values, 

6. Load first paper tape record onto the trans- 
lator-read head, The beginning of record on the 
paper tape, as identified by the red marker line, 
is aligned so as to be the first punched value 
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read and converted. Proper indexing of this line 
assures the appropriate beginning clock and 
paper tape time synchronization. 

7. Press Start Control Button. The paper-tape- 
to-magnetic'tape conversion continues until the 
end of the paper tape is encountered. The 
position of the Zero Suppression Switch is 
important during the translation. If the switch 
position was nonnormal at the start of trans- 
lation, it must be placed at the normal position 
as soon as the first nonzero punched values 
appear in the paper tape. If the translation 
stops because of misaligned paper tape punches, 
the value of the reading prior to the stop point 
is dialed into the last (most riglu hand) four 
fixed-data windows, and the number 4 control 
is pressed. This reading is converted to the 
magnetic tape. Repress the Start Control 
Translation will continue until the blank span 


at end of paper tape automatically stops trans- 
lator. 

8. Remove the paper tape from the translator-read 
head, Dial 9999 code into the last four fixed- 
data windows and press 4 control. This code is 
applied after the translation of each paper tape. 
A paper tape requires from 4 to 6 minutes for 
loading, translation, and removal. 

9. Place two end-of-file marks, by means of an 
EOF Control when the last paper tape record 
for the run has been translated, and the four 9's 
code has been applied. The end-of-file marks 
are recognized by the computer as the end of 
all data on the magnetic tape. The feature is 
used only as an end of all data. 

10. Place the Record Mode Switch in the Rewind 
position after completion of tlie translation. 
The magnetic tape rewinds onto the supply 
spool and is removed, identified, and stored 
prior to computer reduction. 


TRANSLATION PROCEDURE ERRORS 


The translation procedure can provide some oppor- 
tunities for human error. A translator operator may 
mistakenly write on tlie magnetic tape an incorrect 
control code at the end of a paper tape. The operator, 
realizing that tlie error may have occurred, can take 
appropriate steps to have the computer correct the 
error by use of Uie proper numerical code from table 4. 

TABLE 4. -Translator operator errors 
(Coded in Column 53, Paper Tape Identification Form) 


Code 

0 or Blank 

1 

2 

3 

4 


Type of Translator Operator Error 

No errors during paper tape translation. 

The four 9’s, or EOF end-of-paper-tape control, 
left off magnetic tape after the paper tape 
translation. 

Two end-of-paper-tape controls of four 9*s or 
EOFs were mistakenly written on magnetic tape. 
A value other than the four 9’s or EOF control 
was written on magnetic tape. 

'Hie ‘'Zero Suppression^ switch left in the non- 
normal position. Paper tape continued to run, 
extra zeros on magnetic tape. The four 9*s or 
EOF control was placed at end of the zeros. 

The .same problem as Code 4, except failed to 
write the four 9*s control on magnetic tape at 
end of zeros. 


The desired code is entered in column 53 of the 
Paper Tape Identification Form (table 2), opposite the 
paper tape on which the error occurred. Any code 
from table 4, other than zero or blank, tells tlie 
computer to use a supplied ending date Eind time to 
determine the end of a paper tape. If the instrument 
error code (App. 1) for the paper tape is 1,000, with 
good data tape with no apparent errors, the supplied 
ending date and time for the tape would be the same as 
the ending date and time shown on the tape label. 

When the instrument error code specifies a time gain 
or loss, a manually calculated ending date and time for 
the paper tape must be determined. This calculation is 
performed as follows: (a) Count the number of punch- 
out intervals for the paper tape period, which will give 
the number of 5- or 30-minute intervals for the tape 
period, (b) Divide the count into days, hours, and 
minutes, and add to the paper tape’s beginning 
punchout date and time, which establishes the actual 
tape punchout ending date and time, (c) Keypunch this 
time on a data card. The description of this extra card 
(Translator Error Card) is given in the next section, 
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COMPUTER INPUT DATA 


The computer input consists of both keypunch 
cards and the translator-produced magnetic tape. The 
cards are standard 80-coliimn pimchcards. The input 
card variables, proper coding of these variables, and the 
type of format are described under each card layout. 
The following format code is adhered to: 


I == Integer number, right justified in card field. 

F = Real number, contains a decimal point loca- 
tion. Decimal point not punched on the card. 
A - Alphanumeric, number or letter, left justified 
in the card field. 

X = Blank card field, not used. 


CARD LAYOUTS 


Header Card 

(One Card -Required) 


Variable NHCAD NSC 

Format Code II 13 

Card 

Columns 1 2-4 


Variable Description 

NHEAD The number of *‘page heading cards'* to 
be read and written as headings on each 
computer output page. A maximum of 
three ‘*pagc heading cards*’ may be read 
and written. This code is zero if no page 
headings are to be written on the 
printer. 

NSC The number of “snow date cards” to be 

read into storage, A zero coding indi- 
cates no “snow date cards” to be read. 
A maximum of 999 cards may be read. 
(See snow date card layout below). 


Page Heading Cards 

(A maximum of three cards, the number of cards 
must equal to NHEAD on the “Header Card”). (If 
NHEAD equals zero, this card layout is not 
needed). 


Variable 

HCARD(x)‘ 

Format Code 54 A 1 

Card 

Columns 

1-54 

‘The “x” 

notates an integer from 1 through 3. 

Variable 

Description 

HCARD 

Output Identification (See example be- 
low). Example: “Basic Precipitation 


Data (Break Point)” for HCARD (1). 
“NEWRC, University Park, Pa,”, for 
HCARD (2). 


for HCARD (3). 

Note: The State, watershed, and gage 
names are automatically written follow- 
ing the page headings. Tliese variables 
receive values from the following con- 
trol and label card layouts. 
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Snow Date Card 

(Optional cards, use by precipitation data only, one 
card for each day of precipitation other than snow). 

Note: If NSC on header card is zero, this card layout is 
not needed. 


Variable 

NSDTE(x,l)^ 

NSm’E{x,2)^ 

NSDTE(x,3)^ 

STYPE(x)^ 

Format Code 

12 

12 

12 

A1 

Card 

Columns 

1-2 

3-4 

5-6 

7 


^Nutnbers in parentheses represents indexes of computer storage tables, The ‘*x” denotes a 
number beginning mih 1 and ascending to 999* This provides storage for a possible 999 days of 
snowfall or similar precipitation. 


Variable 

NSDTE (x,l) 
NSDTE (x,2) 
NSDTE (x,3) 
STYPE (x) 


Description 


The month. 

The day. 

The last two digits of the year. 

The type of precipitation, see “snow 
date” form (table 1) for proper ' 
coding. 


The snow dale cards arc punched directly from the 
“snow date record form” on table 3. 

The following card layouts serve as program control 
and paper tape records information. The main portion 
of the card variables described obtain values from the 
“paper tape identification form” (table 2). Cards may 
be keypunched directly from this form. 


Control Card 

(One card for each different gage’s paper tape 
records contained on the translator magnetic tape) 
(Required). 


Variable 

STATE 

IWID 

WSH 

GAGE 

NPFG 

NTPT 

lEOF 

Format Code 

A3 

14 

16A1 

3A4 

12 

12 

11 

Card 

Columns 

1-3 

4-7 

8-23 

24-35 

36-37 

38-39 

40 


IT 

KT 

OUT2 

NSKIP 

NOEOF 

KTl 

KT2 

12 

12 

A6 

11 

12 

12 

12 

41-42 

43-44 

45-50 

51 

52-53 

54-55 

56-57 

KT3 

KT4 

NDST 

NEWDAT 

IGREF 



12 

12 

11 

11 

14 



58-59 

60-61 

62 

63 

64*67 




Variable 

Description 

STATE 

The abbreviated State name, (example: 
Pennsylvania = Pa.). 

IWID 

The State watershed location number 
(example: Mahantango Ck., Pa. = 1601). 

WSH 

The watershed name (example: Mahan- 
tango Ck,)* 


GAGE The gage location identification (ex- 
ample: Gage«RE38) (Maximum of 12 
characters). 

NPFG The number of paper tape records for 

the gage (example: NPFG = 12, paper 
tape records for the period are 12). 
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Variable 

NTPT 

lEOF 

IT 

KT 

0UT2 

NSKIP 


NOEOF 

KT1,KT2, 

KT3,anc] 

KT4 


Description Variable 


Description 


The total number of paper tape records 
on the translator magnetic tape. This 
variable will be coded the same on each 
control card for the process. 

If 9999 (four 9’s) is written on trans» NDST 
lator tape after each paper tape, lEOF 
= 0, If end-of“fite marks (EOF) are 
written after each paper tape, lEOF - I. 

The computer-read unit number on 
wliich the translator tape will be 
mounted during processing (Example: 

IT = 01). 

The computer-write unit number on 
which the output storage magnetic tape 
will be mounted. (Example: KT = 03), 

The magnetic tape volume name on 
which the output storage data will be 
written (Example: OUT2 = MAH333). NEWDAT 
Wlien coded as 1, this variable will 
initiate a readout of a specified number 
of paper tape records from the trans- 
lator tape. The paper tapes read will be 
ignored, and processing will commence 
on the paper tape immediately follow- 
ing the last paper readout. The number 
of paper tapes to be read out will be IGREF 
coded under the following NOEOF vari- 
able. If no paper tape records are to be 
skipped, NSKIP will be coded as zero, 
and processing will begin on the first 
paper tape. 

Tlie number of paper tape records to be 
skipped on readout if NSKIP equals 1. 

NOEOF equals zero if NSKIP equals 
zero. 

These variables are control codes used 
by the computer in writing an end-of- 
file on the output storage magnetic tape 
or tapes at completion of processing, 

Tlie proper coding for these variables 
would be the same as the “KT” vari- 
ables used on any or all control cards, 

(Example: KTI = 03, because one mag- 
netic storage tape is used and the tape 
to be end-filed is KT = 03), A maximum 


of four output storage tapes may be 
used during one processing. Each would 
be end-of-filed at end of process. 

Tliis code is used in special cases where 
a dual-control, stream gaging station 
exists, one control for measuring low 
flows and another for measuring high 
flows. In this special case, NDST would 
be coded as zero for the high-flow 
control and as 1 for the low-flow 
control. Wlien runoff data is from a 
single control station, NDST would be 
coded as zero. The NDST code is used 
in later processing to identify the proper 
rating table or curve to be used in 
computing discharge. 

This variable, when coded 1, specifies 
that a different type of hydrologic data 
will follow the present data. A new 
header card must be read following the 
last paper tape record of this control 
card. NEWDAT will be coded zero if 
same type of data is to follow. 

The maximum change in gage -recorded 
amount that may occur in a given time 
interval, or maximum gage height 
allowed. This variable is necessary be- 
cause of the possibility of erroneous 
punchouts on the paper tape by the 
distal-recording gage. If any gage- 
punched reading for a given time in- 
terval exceeds the value of this variable, 
the data is considered invalid and is 
ignored by the computer. Default values 
for the three types of hydrologic data 
will be used when IGREF equals zero. 
These defaults are as follows: (a) a 
maximum of l-inch change in precipita- 
tion amount in a 5-miniite interval, (b) a 
maximum of 30.00- foot gage depth for 
any runoff amount, (c) a maximum of 
60.00-foot gage depth for any ground 
water level. 
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Variable 

NCOD 

GAG 

NHL 

NTYPE 


Label Card 

(One card for each paper tape record contained on 
the translator tape) (Required). 


Note: The card columns of this card are identical to 
the columns of the “paper tape identification 
form.” 


Variable 

NCOD 

GAG 

NPIL 

NTYPE 

NTRACE 

Format 

14 

3A4 

12 

11 

12 

Card 

Columns 

1-4 

5-16 

17-18 

19 

20 


MTl 

NDl 

NYU 

NYl 

NHl 

12 

12 

12 

12 

12 

21-22 

23-24 

25-26 

27-28 

29-30 

NMl 

ARDl 

MT2 

ND2 

NY22 

12 

FH,2 

12 

12 

12 

31-32 

33-36 

37-38 

3940 

4142 

NY2 

NII2 

NM2 

ARD2 

ICHECK 

12 

12 

12 

F4,2 

11 

43-44 

4546 

4748 

49-52 

53 

NLIST 

ITCHG 

LDATA 

ELEREF 


11 

11 

11 

F6,2 


54 

55 

56 

57-62 



Description Variable 


Description 


The gage malfunction error code for the NTRACE 
paper tape record. (Example; NCOD 
1,000 is good data) (See Error Codes, 

App. 1). 

The gage location identification, this 
variable is coded the same as “GAGE 
on the control card for this gage (Ex- 

ample; RE38 )• NDl 

The paper tape punchout time Interval 
(Example: 05 for a 5-minute punch 
interval). ^ 

The type of data being processed, 

NTYPE will equal 1 for precipitation, 2 

for streamflow, and 3 for ground water NUl 

data. 


If the rain-trace sensor on a rain gage is 
in operation for the paper tape, 
NTRACE =1, if sensor out of opera- 
tion, NTRACE = 0. If processing runoff 
or ground water data, NTRACE = 0. 

Tlie paper tape begnning month. 

Tile paper tape beginning day. 

The first two digits of the beginning 
year (Example: 1970, NYl ! = 19). 

The last two digits of the begnning year 
(Example: 1970, NYl =70). 

The beginning hour (military watch 
time, 24 for midnight). 
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Variable 


Description 


Variable 


Description 


NMl The beginning niinutcs. (This variable 

should be a multiple of 5 or 30). 
(Example: If NMl = 15 for 15 niinules 
after the hour, the paper tape time cycle 
is every 5 minutes). 

ARDl The beginning punchout reading 

(Example: 000.0 =zero precipitation, 
01.00=1 foot of stream depth, etc.). 
(Decimal point not punched; therefore, 
data must be riglU justified about the 
decimal point). 

MT2 The paper tape ending month. 

ND2 The ending day, 

NY22 The first two digits of the ending year. 

NY2 The last two digits of the ending year. 

NH2 The ending hour (military watch time). 

NM2 The ending minutes (a multiple of 5 or 

30), 

ARD2 The ending punchout reading (decimal 

point not pimctied). 

ICHECK The coding of this variable pertains to 
tlie end of paper tape control of four 
9’s. The proper coding is found under 
the “translator operator errors” in table 
4 and Column 53 of the paper tape 
identification for table 2. (See “Trans- 
lator Error Card” below). 

NLIST Used on runoff or ground water data 
only. If all output records are to be 
listed on a printer, NLIST will equal 1. 
If only the page headings, the first and 
last record for each paper tape period 
and a summary for each paper tape are 
to be printed on output. NLIST wilt 
equal zero. The precipitation data is 
automatically listed, and in this case, 
NLIST would be coded as zero. 


ITCHG If a precipitation trace sensor malfunc- 

tion under “NCOD“ above occurred 
during the record period, and if the 
trace sensor is to be ignored, ITCHG 
would be coded as 1. ITCHG would 
equal zero in all otlier cases. 

LDATA Tills variable describes the number of 
comment cards (loss data cards) that are 
to be read immediately following this 
label card or a translator error card, if 
present (LDATA may have a value of 
zero througli 9). If LDATA is equal to 
zero, no loss data cards will be read. 
ELEREF Used by ground water well data only. 

This variable is coded with the value of 
mean sea level elevation when the top of 
a ground water well is reference to 
elevation. The output data would be 
. values of elevation in place of gage-read- 
ing depths. If the well is not referenced 
to mean sea level elevation, the> variable 
ELEREF would be coded as zero, and 
the output would be gage-reading water 
depths in feet. The maximum elevation 
of a well at ground level is 9999.99 feet 
(Decimal point not punched). 

The following cards can be inserted in the input 
data card deck immediately following the paper tape 
label card. The first, a “Translator Error Card,” will be 
needed in the event that a translator operator’s error 
occurred at the time of translation, and tlie gage 
malfunction error code (NCOD) is for a time gain or 
loss. The second, “Loss Data Cards.” can be used to 
note a period of data loss between or during paper tape 
collection periods. 
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Translator Error Card 
(Optional card after a label card) 

Note: If “ICHECK ” under Label Card above does not 
equal ^ero for the paper tape record, this card 
must be present in the input deck. The format 
of tliis card coincides with the format of the 
‘‘Label Card” above. 


Variable 

BLANK 

IMO 

IDA 

lY 

lYR 

IHR 

IMN 

Format 

36X 

12 

12 

12 

12 

12 

12 

Card 

Columns 

1-36 

37-38 

39-40 

4142 

43-44 

45-46 

47-48 


ARFD 


F4.2 


49-52 


Variable 

Description 

Variable 

Description 

BLANK 

36 blanks are not used. These blanks 

lYR 

The last two digits of the computed- 

orient the card variables to coincide 


tape ending year (Example: 1970, 


with tire “Label Card” format. 


IYR = 70). 

IMO 

The compuled-papcr-tapc-rccord ending 

IHR 

Tlic tape ending liour (military time). 

IDA 

mouth (See “Translation Procedure 
Errors” Section). 

The computcd-paper-tape-rccord ending 

IMN 

Tlic tape ending minutes (IMN must be 
a multiple of 5 or 30). 


day. 

ARED 

Tire ending punch-out value (Decimal 

lY 

Tire lirsi two digits of the computed- 


not punched). 


tape ending year (Example: 1970» 
lY- 19). 


Loss Data Cards 

(Optional cards after the “Translator Erroi 
Card” or “Label Card”). These cards are used 
to note a loss of dala between two paper tapes. 


Variable 

ACARD 


Note: A maximum of nine cards allowable. 


Variable ACARD 


Forma t 

Card 

Columns 


80A1 


1-80 


Description 


Variable 


Description 


Comments for output on the data list- 
ing. Tlic “LDATA” code under the label 
card layout must be greater than zero to 
read “Loss Data Cards.” The number of 


loss data cards read and printed will 
equal tlie LDATA code from the label 
card of the preceding paper tape. 
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ORDER OF INPUT 


The Input Data Cards are stacked in the following 
order: 

1 . Header Card (one card, required). 

2. Page'Heading Cards (maximum of three cards, 
optional). 

3. Snow Date Cards (maximum of 999 cards, 
optional). 

4. Control Card (one card, required), 

5. Label Card (one card, required), 

6. Translator Error Card (one card, optional). 

7. Loss Data Card (maximum of nine cards, 
optional). 

8. Repeat steps 5 through 7 for each paper tape 
record for a gage. 

9. Repeat steps 4 throu^i 8 for each gage's data. 

10. Repeat steps 1 througir 9 for each type of data 

on the translator magnetic tape. 

(A typical stacking order is illustrated in figure 9.) 

The translator magnetic tape contains the basic 
input data. The physical makeup of this tape is a long, 
continuous string of digits, each four digits represent- 
ing a 5- or 30-niinute-interva! data entry. An imaginary 
decimal point is located between the tliird and fourth 
digits for precipitation data and between the second 
and third digits for runoff and ground water data. The 
presence of a number 8 in the first digit of a 
precipitation reading signals a trace sensor indicator. 
The occasional appearance of four 9’s represents an 
end of a paper tape record, Following every 1,020 



Figure 9, -A typical input-data-cards stacking order. 


digits, a blank space and imprinted line indicate an 
interrecord gap. A pictorial view of a section of data 
listed from a translator magnetic tape is illustrated in 
figure 10. A “box” encloses a group of four 9’s to aid 
recognition. 

The combination of input cards and translator 
magnetic tape completes the input data requirement of 
tlie processing computer program. 


C076CC76CU76C076CC760076CC76CC76007600760076007400760C7600760076007600760076007600760076 
C076CC76C0760076U07A0076(107600760076007600TAtI07600 7600 760076007600 7600760076007600 760076 
00 760076007600760U76C0760Q760C760076C07600 76C0760C 76007500760076007600760076007600760076 
()0 7600 76C076007600760Q76lC760C760076C0760076CQ760C76C0760076a076007600760076007600760076 
'JC 76CC7600760076CC76CC760C760C760076007600760076007600760076rj076007600 76007600 7600760075 
307600 76007600 7600 7600?600760C76aO?6l)076007600760C76Q 076007600760076007600760076007600 76 
/CO 76007600 760076007t00760C760C76007600760076007600 760076007600 760C7600 76007600 760076007 6 
^QC76C0 7600 76C0760C76CC76C0760C7600760076007600760C 76007600760076007600 7600 7600 76007600 76 
CC76L07600760076C07600760C760C76007600760076007600760076007600760C7600760Q76007600760076 
0076007600760076007600760076007600760076007600760076007600760076007600760076007600760076 

. (IKTERflECORD GAP) 

C0 760076C076C076C076Q0760076CC7600760076CC7600760076QC76U07600760076007600760076007600 76 
CC76CC 760076007600 760076007600760076007600760Q760C760C760076007600 7600 760076007500760076 
0076007600 760C76007600760C760G7600760C760076n07600760C?6{lC76Q076007600760a760Q7600760076 
00 760076«076C0760C76007600760076007fiOQ760076U0760C760076()0760076007600760076007600760075 
CO 76C076G0 76Q076007600760C760C760076GC7600760Q7600760C760C7600760C760076007600 76007600 76 
O^C076007600760076007600760C76l)076i)0760076007600760C760076C076007600760076C0760076Q076 
eM30076n0760076007600?6007600760076«0760<]76007600?60076U0760076007600760076007600760Q7A 
007600760076007600760076007600760076(10 760076007600/60076007600760076007600760076007600 76 
0076007600760076007600 7600 7600760076007600760076(307600760076007600 76007600 7600 7600760076 
C07600 760076007600760076007600760076007600760076007600 760076007600760076007600 7600760075 

(INTBBRKCORD (JAP) 

0076C07600760C7600 7600760C760C76007500 76007600760C760C76007600760C760076007600760076007 5 
CO 760076007600760076007600 760076007600760076007600 76007600 760076007600 76007600 76007600 76 
OC7600760076C0760076007600760C7600760076007600760C760C?6007600760076007600760076S§?6S§?6 
fl076C0760fl7600760C76007600760Q7600760076n0760076(.0760C760076007600?600760076007600750076 
007600760076007600 76007600760076007600760076007600:7600 7600760076007600 7600 760076007600 76 
0076C07600760C76CC76007600760C760Q760(3760ti760C76U0760C760C7600760C7600760076C?76SS76SS76 


Figure 10, -A pictorial view of a section of data listed from a translator magnetic tape, 
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COMPUTER SOURCE PROGRAM 


The computer program developed to reduce the 
digital hydrologic data was written in Fortran IV 
language for use on an IBM 360/67 computer system."* 
This source program is comprised of a main program 
and nine subroutine subprograms to aid in program 
“debugging"’ and because of their ease in following the 
program’s flow direction. 

A major function of the program is to edit the data 
for extraneous gage readings from the translator 
magnetic tape and to retain only those gage readings 
that are needed to reproduce the hydrologic events for 
a record period. These values with appropriate date and 
time, gage malfunction error code, and other identi- 
fying information are listed on a printer and written 
on magnetic tape storage as output. A complete errors 
edit is performed using information from the Trans- 
lator Operator’s Error or Loss Data Cards. 

The appropriate action is taken by the program to 
identify these errors by printed messages on the output 
media. The program does not attempt corrections of 
gage malfunction errors. The error codes provide 
sufficient information for a later step in data correc- 
tion and analysis. The program was written to enable 
the reduction of all three types of digital hydrologic 
data: streamflow, precipitation, and ground water 
.wells. 


A normal method would be to reduce each type ol 
data separately, avoiding a mixture of the three types 
of data on a single magnetic storage tape.^ One type of 
data per storage tape provides a less complicated data 
retrieval at a later date. A source program and 
input-data loading order is illustrated in figure 11. The 
II and /* cards are computer residence cards, which can 
vary from one computational center to another. A 
listing of the program is given in Appendix II. 



Figure 1 1 .-A diagram of the computer source program 
and input-data loading order. 


TRANSLATOR MALFUNCTIONS AND THEIR COMPUTER CORRECTIONS 


The paper-tape-to-magne tic-tape translator places 
data on the magnetic tape in a binary-coded decimal 
form, The signal strength of each digit must lie within 
the acceptable signal strength range of the computer 
device used to read the magnetic tape, It has been 
found with the Model 1730 translator that the signal 
strength of an individual digit occasionally may fall 
outside this acceptable range. Consequently, an invalid 
character is usually substituted for the correct O-to-9 
digit. 

Tills invalid character will cause the program to stop 
execution, and the data on the magnetic tape beyond 
this point becomes inaccessible in the current job step. 
This character results in an error code IHC215I on the 
IBM 360/67 system. It can be bypassed by the use of 


Corporation. IBM systeiii/360 operating system, 
Fortran IV (G) Programmer’s Guide. File No. S360-25, Form 
No,C28-6639-L 1966. 


the ERRSET subroutine. An example of the invalid 
character niiglit be 01^3 instead of 0123. The ERRSET 
statement simply informs the computer to take the 
invalid character 0 to convert it to a valid digit 
(1). This results in a usable four-digit number (0113). 
Tlie one digit is obtained from the last arguinent in the 
CALL ERRSET statement. Likewise, the second argu- 
ment (256) allows for 256 of the IHC215I errors 
before program execution is completely terminated. 
Tlie values of these two arguments is arbitrary within 
certain limits (See Ref. No. 3), 

A second translator malfunction that can occur with 
the model 1730, although less frequently, is a perma- 
nent input error (IBM-IHC218I), This error is also 
produced from a weak signal on the translator mag- 


^Shanholtz, V. 0„ and Burford. J. B. Computer systems for 
reduction and analysis of hydrologic data, U.S, Dept. Agr., 
Agr, Res, Serv., ARS 41-132, 1967. 
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netic tape. \Vlien the computer attempts to read a 
record and is unable to recognize the value as valid, the 
ERR = argument of the input data READ statement 
(main program, App. II) instructs the computer to 
reread die record in error. The record is reread 
niiinerous times in an attempt to receive a valid value. 
If a recognizable value is obtained, the program 
execution continues. If not, execution fails, and the 
processing stops. 


Following the use of either of these correction 
routines, the computer reduction program is designed 
to ignore the corrected record if its value is above or 
below a set amount when compared with the preceding 
and following record. 

However, the occurrence of tliese malfunctions is 
rare. The use of very higli-quality magnetic tape in the 
translation process can help to reduce the possibility of 
a translator malfunction. 


COMPUTER OUTPUT DATA 


The output data from the computer reduction step 
can be written via a printer and/or placed on pernia" 
nent magnetic storage tape. 

An example of the printer output is given in figure 
12 and illustrates one paper tape record period from 
Rain gage RR44, Mahantango Creek Watershed. The 
collection period began 9/9/69 at 1020 with zero 
rainfall and ended 10/7/69 at 1100 with 2,6 inches of 
accumulated rainfall. During this period, the rain trace 
indicator was in operation and is noted on the records 
with a ‘"T"’ as trace rainfall. The “type” column is 
blank, because only rainfall was measured, not snowfall 
or other similar precipitation. 

Tire blank line spaces across the listing are rainfall 
event separators. These represent an hour or more 
between the end of one rain and the beginning of 
another. The footnotes describe the computer versus 
the watch-time ending of the paper tape, the number 
of basic records written on magnetic tape, the number 
of records read and analyzed, and the type of rain gage 
malfunction error for the collection period. 

The streamfiow output listing (fig. 13) depicts a 
recording period of 6 days from stream gage WE38U. 
In tills example, the “list” option, described as 
“NLIST” in the “Computer Input Data” section, is in 
effect. The output is similar to the precipitation listing 
in Gage No., Date, Time, and Code columns. The 
“Time Intr” column represents the number of 5- 
minute intervals during which the stream level re- 
mained at the corresponding gage depth under the 
“Depth (FT)” column, The presence of zero in the 
“Discharge Table No” column indicates that the data 
record is from a large control of a “dual-control gaging 
station.” Tlie footnotes follow the same format as that 
in the precipitation data listing. 


The printed output from ground water well data as 
shown (fig. 14) is generally tlie same as output from 
streamfiow. This output is also a result of the “List” 
option effect. The “NREFE” column indicates, by the 
presence of a blank, that gage depths are actual 
instrument readings not referenced to M.S.L. elevation. 
Every 2400-Iiour reading for the entire record period is 
listed and written on the magnetic tape for both the 
ground water and the streamfiow data. 

Wlien the list option (NLIST) is coded as zero, the 
printed output for each ground water well orkream- 
flow paper tape will contain only the page andcoluinn 
headings, the first and last record written on magnetic 
tape storage, and footnote information. This option of 
zero or no listing allows the summary of the paper tape 
Information without printing all basic output records, 
thus decreasing tlie initial processing time. A listing of 
the basic output records may be obtained from the 
magnetic storage at some later date. 

The magnetic storage tapes contain only the basic 
output records. These records are written in an 
imformated form, or format-free output, Each integer 
or real variable of a record requires four bytes of 
magnetic storage, and every character of a literal 
character string requires one byte, plus four extra 
computer-required bytes for each record written. The 
storage requirements for each precipitation record, 
streamfiow, and ground water well are the same: 56 
bytes. The magnetic tape is written in blocked records 
of 1 00 records per block, and the variable block size 
(VBS) needed to store the different length records is 
6,004 bytes, including four extra bytes per block, 

The Fortran IV naming convention must be fol- 
lowed when reading or writing unformated records on 
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PRECIPITATICN(BREAK POINT BASIC DATA! 
NFWRCfUNIVERSITY PAPK,PAi 
STATE^PA* STATE IND, N0*=^1600 


WATER5HEO= MAHANTANGH CR. GAGF=RRAA 


GAGE 

NO. 

MONTH DAY YEAR 

TIME TRACE 

HP MTN 

PRECIP DEPTH TYPE 

FOR INTERVAL 

IINCHESI 

PRECIP CODE 

ACC, 

IINCHESI 


TAPF BEGINNING 

DATE, TIME, READING* 

9/ 9/1969 1020 0, 

0 


RR44 

9 

17 

1969 

16 

35 

T 

0,0 

0.0 

lOOO 

RR44 

9 

17 

1969 

16 

40 


0,2 

0.2 

1000 

RR44 

9 

17 

1969 

17 

10 


0,1 

0.3 

1000 

RR44 

9 

17 

1969 

17 

25 


0,1 

0.4 

1000 

RP44 

9 

17 

1969 

17 

45 


0, 1 

0,5 

1000 

RR44 

9 

17 

1969 

.17 

50 


0,1 

0,6 

lOOO 

RR44 

9 

17 

1969 

22 

45 

T 

0,0 

0,6 

10 00 

RR44 

9 

17 

1969 

23 

0 


0,1 

0.7 

1000 

RR44 

9 

17 

1969 

23 

50 


0,1 

0.8 

1000 


RR44 

9 

25 

1969 

13 

55 


0, 1 

0,9 

1000 

RR44 

9 

27 

1969 

21 

40 

T 

0,0 

0.9 

1000 

RR44 

9 

27 

1969 

72 

35 


0,1 

l.o 

1000 

RR44 

9 

28 

1969 

7 

20 

T 

0,0 

1.0 

1000 

RR44 

9 

28 

1969 

7 

35 


0,1 

1,1 

1000 


RR44 

10 

2 

1969 

9 

55 T 

0,0 

l.l 

1000 

RR44 

10 

2 

1969 

10 

25 

0,1 

1,2 

1000 

RR44 

10 

2 

1969 

U 

5 

0,1 

1,3 

1000 

RR44 

10 

2 

1969 

12 

5 

0,1 

1,4 

1000 


RP44 

10 

2 

1969 

13 

15 

T 

0.0 

1,4 

1000 

RR44 

10 

2 

1969 

13 

35 


0,1 

1,5 

1000 

RR44 

10 

2 

1969 

14 

40 

T 

0.0 

1,5 

1000 

RR44 

10 

2 

1969 

14 

45 


O.l 

1,6 

1000 

RR44 

10 

2 

1969 

15 

40 


0,1 

1.7 

1000 

RR44 

10 

2 

1969 

16 

0 


o.l 

1,8 

1000 


RP44 

10 

2 

1969 

17 

10 

T 

0,0 

1,8 

1000 

RR44 

10 

2 

1969 

17 

25 


O.l 

1,9 

1000 

RR44 

10 

2 

1969 

18 

30 


0,1 

2.0 

lOOO 

RR44 

10 

2 

1969 

19 

0 


O.l 

2,1 

1000 

RR44 

10 

2 

1969 

19 

55 


0.1 

2,2 

1000 

RR44 

10 

2 

1969 

20 

55 


o.l 

2,3 

1000 

RR44 

10 

2 

1969 

23 

10 

T 

0,0 

2,3 

1000 

RR44 

10 

3 

1969 

0 

10 


0,1 

2,4 

lOOO 

RR44 

10 

3 

1969 

1 

20 

T 

0.0 

2,4 

1000 

RR44 

10 

3 

1969 

1 

25 


0,1 

2,5 

1000 

RR44 

10 

3 

1969 

2 

10 


o.l 

2,6 

1000 


END OF TAPE N0.31#FaR GAGE-RRA4 END OF TAPE ON LABEL*»lO/ 7/1969 T1ME«11 0 READING* 2*6 

END OF TAPE COHPUTED^IO/ 7/1969 TIHE^ll 0 READrNG= 2,6 

THE NO, OF RECORDS WRITTEN^* 44 

THE TOTAL NO. OF PUNCHES FOR PAPER TAPF WAS COMPUTFD TO BE* fl073 PUNCH INTERVAL* 5 

DATA FOR PAPER TAPE WRITTEN ON TAPF NO, VAl 3 14* FOR STORAGE — THE ERROR CODE FOR TAPE*lOOO 

ERROR CODE flOOO) GOOD DATA TAPE NO APPARENT ERRORS 

Figure 12.- An example of printer output from one precipitation record. 
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1 


SJBEAM FLOW « BREAK POINT BASIC DATA) 

.. MEWRC i U I VERS I JY ..PARKj PA, .. 



STATE 

-PA. 

STATE 

IND. 

NC.* 

1606 





water sheo- 

pahantango ck 


GAGE- 

W£3eu 



'gage 

HCNTH 

day 

YEAR 

TtPE 

time 

CISC MARGE 

DEPTH 

CODE' 

NO. 




HR 

HIN 

INTR 

TABLE NO. 

(FTI 


EEGIN OF TAPE LAEEL^ WE3EU 

10 


1970 

12 

50 



0.23 

1000 

FIRST RECORD CN HAG , »..>E 3EU . 

...to 

6 

1970 

12. 

50.. 

12 

P 

0.23 

loco 

wE3eu 

10 

a 

1970 

12 

50 

12 

0 

0.23 

1000 

WEBEU 

10 

6 

1970 

13 

50 

24 

0 

0.22 

1000 

WE38U 

10 

6 

1970 

15 

50 

46 

0 

0.21 

1000 

VE3eU 

10 

6 

1970 

19 

4 0 

52 

0 

0*20 

1000 

WEBfiU 

10 

6 

1970 

2A 

0 

203 

0 

0.20 

loco 

WEaEU 

10 

7 

1970 

16 

55 

B5 

0 

0.19 

loco 

W6 3CU 

10 

7 

1970 

24 

0 

123 

0 

0«I9 

loco 

waaeu 

10 

8 

1970 

10 

15 

54 

0 

0.20 

1000 

WE3EU 

10 

e 

1970 

14 

45 

111 

0 

0.19 

1000 

WE3eU 

10 

e 

1970 

24 

0 

117 

0 

0.19 

lOQO 

I FE3EU 

10 

9 

1970 

9 

45 

53 

0 

0.20 

lOOO 

WE38U 

10 

9 

1970 

14 

10 

116 

0 

0*19 

1000 

WE3EU 

10 

9 

1970 

24 

0 

70 

0 

0.19 

1000 

WE3EU 

10 

ic 

1970 

5 

50 

204 

0 

0.20 

lOOO 

W8 3EU 

10 

IC 

1970 

22 

50 

14 

0 

0.19 

1000 

WE38U 

10 

xc 

1970 

24 

0 

27 

0 

0.19 

1000 

W638U 

10 

ll 

1970 

2 

15 

261 

0 

0.20 

1000 

WE'i'EU' 

10 

11 

1970 

24 

O' 

203 

0 

d . 20 

idcd 

LAST RECORD CN PAG* WESEU 

10 

n 

1970 

24 

0 

1 

0 

0.20 

1000 


END QF TAPE NO. 1 p FCR GAGE-Hfc3flt CKD OF TAPE ON LAbEL«10/12/ 1970 TIME«17 0 READING* 0.19 

END OF TAPE COMPUTE C»ig/_12_/ 1970 TI^iE*!? 0 READING* 0.19 _ 

■ tHE NO. OF' RECCMiS WRITTEN* IB ‘ - - • ’ 

TOTAL RECORDS WRITTEN CN MAC. TAPE SINCE BEGINNING* 12A2 

IFF TCTAL NO- OF PUNCHES FCR PAPER TAPE WAS CCMPUTEO TO BE* 1779 PUNCH INTERVAL- 5 

DAT A f OP P API R TAP E W R I T TE N 6N t A P E" NO . DU HM'V" , FC P ''S f CR AGE-- t F £ “ERROR CODE FDR ' TAP E - 1 000 


ERPCR CaC£*{lCCG> GOOD DATA TAPE-^NG APPARENT ERRORS 


Figure 13. -An example of printer output for one streamflow paper tape record. 
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AOUIFER 

CATAIBREAK POINT 

DATA) 




NEWRC, 

LMVERSITY PARK, PA. 













STATE-PA. 


STATE 

IND. 

NQ.*1606 



WATERSHEC* 

mahantango CK, 


GAGE*A037-3a 


ELEVATION REFERENCE* C.OO DEGIN 

GAGE 

HEIGHT* 2A.00 




GAGE 

MC 

DAY 

YEAR 

TIRE 

NREFE 

GAGE CEPH. 

CODE 

BEGIN CF TAPE LABEL* AD37-38 

A 

3 

197C 

1A30 

0 

2A*00 

1000 

FIRST 

RECCRE CN MAG.* AC31-38 

A 

3 

1970 

1A30 

0 

2A#03 

1000 


AC37-38 

A 

3 

1970 

15 0 

0 

2A.03 

1000 


AC37-38 

A 

3 

1970 

1530 

0 

24.03 

lOOO 


AC37-38 

A 

3 

197C 

16 0 

0 

2A.03 

1000 


Ar37-‘38 

A 

3 

1970 

1630 

0 

2A.03 

1000 


AC37-38 

A 

3 

197C 

17 0 

0 

2A.03 

1000 


AC37-38 

A 

3 

1970 

1730 

0 

2A*03 

iooo 


AL37-38 

A 

3 

1970 

18 0 

0 

2A.02 

1000 


Ar31-38 

A 

3 

197C 

1830 

0 

2A.01 

1000 


AC37-3Q 

A 

3 

1970 

19 0 

0 

23*98 

1000 


AC37-38 

A 

3 

1970 

1930 

0 

23.97 

1000 


A037-38 

A 

3 

1970 

20 0 

0 

23.96 

1000 


AD37-38 

A 

3 

1970 

2030 

0 

23.93 

1000 


An37-38 

A 

3 

1970 

21 0 

0 

23.92 

1000 


AC37-38 

A 

3 

1970 

2130 

0 

23.91 

1000 


AC37-38 

A 

3 

1970 

22 0 

0 

23.90 

1000 


AC37-38 

A 

3 

1970 

2230 

0 

23.88 

1000 


AC37-38 

A 

3 

1970 

23 0 

0 

23.88 

1000 


AC37-38 

A 

3 

1970 

2330 

0 

23.68 

1000 


AC37-38 

A 

3 

197C 

2A 0 

0 

23.68 

1000 


AC37-38 

A 

A 

197C 

030 

0 

23.88 

1000 


AC37-38 

A 

A 

1470 

1 0 

0 

23.86 

1000 


AC37-39 

A 

A 

1970 

130 

0 

23.88 

1000 


AC37-39 

A 

A 

1970 

2 0 

0 

23.88 

1000 


AC37-3a 

A 

A 

1970 

230 

0 

23.66 

1000 


AD37-3e 

A 

A 

1970 

3 0 

0 

23.88 

1000 


AC37-3B 

A 

A 

1970 

330 

0 

23.88 

1000 


A037-38 

A 

A 

1970 

A 0 

0 

23.86 

1000 


AC37-38 

A 

A 

1970 

A3 O ' 

..... ^ - 

23.88 

ioo"o 


AC37-38 

A 

A 

1970 

5 0 

0 

23.68 

1000 


AC37-38 

A 

A 

1970 

530 

0 

23.88 

1000 


AD37-38 

A 

A 

1970 

6 0 

0 

23.88 

1000 


AC37-38 

A 

A 

1970 

630 

0 

23.87 

1000 


AC37-38 

A 

A 

197C 

7 0 

0 

23.86 

1000 


AC:37-38 

A 

A 

1970 

730 

0 

2 3. 8 A 

1000 

LAST 

RECURC CN MAG.« AC’37-3e 

A 

A 

1970 

B 0 

0 

23.81 

1000 


Ending 

GAGE HEIGHT LABEL* 

23. 

81 



ending 

cn 

TAPE label 

a A- 

4-1970 

8 0 

23.81 


END OF 

TAPE COMPUTEC 

* A- 

A- 19 70 

6 0 

23.81 


ERROR CCCE 

FOR paper 

TAPE 

-1000 




75-RECOROS 

WRITTEN FOR 

PAPER 

TAPE 



RECORDS 

WERE 

hRITTe^ 

CN MAG. T^PE-OUMMY 



A TOTAL 

OF 

- 

67REC0PDS 

WERE WRITTEN ON MAG 

. AT THIS POINT 


ERROR CODt*(lCCOI GOOD DATA 

TAPE-NC APPARENT ERRORS 












Figure 14. -An example of printer output from one gtonnil water (aquifer) paper tape record. 


23 



mn Nilotic s^oiagc tnjie. The same type, identical first llie magnetic tape. The output variables and storage 

leitci, and vaiiablc names must be used when reading a requirements of each of the three types of liydrologic 

rccoid as were used when (he record was written on records are described in the following record layouts: 


1. Pi LX'jpitation data storage records: Record Length = 

60 bytes (56 actual + 4 extra). 

Variable 

nvin 

GAGE 

NDATEtl) 

NDATE(l) 

NYU 

Sloragc 

(Bytes) 

4 

12 

4 

4 

4 

Significant 
diameters 
per I’icld 

4 

12 

2 

2 

2 


NI)ATE(3) 

NDATi;(4) 

NDATE(5) 

TRACE 

DREC, 

4 

4 

4 

4 

4 

2 

2 

2 

1 

5 

STYPE 

NCOD 




4 

4 




1 

4 





2. Streaniflow Data Storage Records; Record Length = 60 bytes (56 + 4)* 

f^D GAGli NDATE(l) NDATEf2) NYU NDATE^'i^ 

Storage — 

CB ytcs) 4 12 4 4 4 4 

Sigjilflcant 

Chnraclers 

per I'leld 4 12 2 2 2 2 

NDATE(4) NDATE(5) NTINT NDST AREC NCOD 


** 4 4.4 4 4 

2 2 3 1 6 4 

3. Ground water well data storage records: Record Length = 60 (56 + 4), 

nviD GAGE NDATE(l) NDATE(2) NYU NDATEtS) 

Storage ~ L-l 

(Bytes) 4 12 4 4 4 4 

Significant — ^ 

Characters 

per Field 4 12 2 2 2 2 

NDATE(4) NDATE(5) NREFE AAREC NCOD BLANK 


4 4 4 4 4 4 


2 2 18 4 
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Variables 


Description 


Variables 


Description 


IWID 

Watershed Identification number. 

NDST 

GAGE 

Gage location number. Example: 
(WE38U ). 


NDATE(l) 

Month. Example: (12). 


NDATE(2) 

Day, Example: (31). 

NREFE 

NYU 

First two digits of the year. Example: 
(19). 


NDATE(3) 

Last two digits of the year. Example: 


NDATE(4) 

(72). 

Hour (military lime). Example: (24). 

DREG 

NDATE(5) 

Minutes (multiple of 5 or 30). Example: 
(00), 

AREC 

TRACE 

Trace on or off for record of precipita- 
tion. Example: (T). 

AAREC 

STYPE 

The type of precipitation, a blank repre- 
sents rainfall. Example: (S). 

NCOD 

NTINT 

Number of 5-ininute intervals stream- 
flow gage level in effect. 
Example: (101), 

BLANK 


If equal to zero or blank, a large or 
single streamflow control. 

If equal to one, a small control of a 
dual-control gage. Example: (0). 

If equal to one, the ground water well 
levels represent elevation, if equal to 
zero or blank, ground water well levels 
are actual gage hciglit. Example; (1). 

Precipitation amount collected per time 
interval. Example: (000.2). 

Streamflow level for time. Ex- 
ample: (000.25). 

Ground water well level for time. Ex- 
ample: (01985.28), 

Gage malfunction ERROR code. Ex- 
ample: (1,000), 

Used as record-padding space (four 
blanks). 


CONCLUSION 

The edited magnetic-tape storage data provide the correction, aided tlirouglx use of tlie malfunction error 

first step to digital hydrologic data analysis. The data codes, can be accomplished from tlie master files at the 

from these storage tapes are retained in the original discretion of the user, 
form as basic data master files. Analysis and data 
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APPENDIX I. GAGE MALFUNCTION 'CODES 


A ONE IN COLUMN ONE MEANS VALUE PUNCHED ON LAST PUNCH 
OUT OF PAPEP TAPE IS TRUE VALUE RECORDED BY GAGE. A iER 
0 IN COLUMN ONE MEANS AN ERROR IN LAST VALUE PUNCHED. 

A 'X' NOTES A CHOICE OF A OR A 'O' IN COLUMN ONE. 

1UOO=GOOD DATA TAPE NO APPARENT ERRORS 

2UOO=DATA CONTAINS ESTIMATED VALUES OR (ESTIMATED DATA) 

( TIME LOSS CODES ) 


XOU) = time LOSS-TIMER FAILURE GAGE STOPPED 

XOll = TIME LOSS-LEAF SWITCH FAILURE GAGE RAN CONTINUOUSLY U 
NTIL BATTERY FAILED 

XOi2 = TIME LOSS-TIMER FAILURE INTERMITTANT OPERATION 
X()13 = TIME LOSS-TIMER FAILURE TIME DIFFERENCE AT END OF- PAP 
ER TAPE. 

X014 = TIME LOSS- 
XU15 = TIME LOSS- 
X016 = TIME LOSS- 
X017 = TIME LOSS- 
X018 = TIME LOSS- 
X019 = TIME LOSS- 

X020 = TIME LOSS-NO APPARENT REASON 
X021 = TIME LOSS- 

XU22 = TIME LOSS-LEAF SWITCH FAILURE 

X023 = TIME LOSS-BATTERY FAILURE 

X024 = TIME LOSS-IMPROPER TAPE INDEXING 

X025 = TIME LOSS-PUNCH MOTOR OPERATES I NTERM I TTANTL Y 

X026 = TIME LOSS-PUNCH MOTOR FAILURE 

X027 = TIME LOSS- 

X028 = TIME LOSS- 


X029 = TIME LOSS- 


( TIME GAIN CODES ) 

X030 = TIME GAIN-TIMER FAILURE 2 1/2 MINUTE PUNCH INTERVAL 

X()31 = TIME GAIN-TIMER FAI LURE ' I NTERM I TT ANT OPERATION 

X032 = TIME GAIN-LEAF SWITCH FAILURE GAGE RAN CONTINUOUSLY U 
NTIL BATTERY FAILED 
X()33 = TIME GAIN-NO APPARENT REASON 
X034 = TIME GAIN-LEAF SWITCH FAILURE 
XU35 = TIME GAIN-IMPROPER TAPE INDEXING 

X036 = TIME GAIN-TIMER FAILED TIME DIFFERENCE AT END OF TAPE 
X037 = TIME GAIN- 

X038 = TIME GAIN- 
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X039 = TIME GAIN- 
XU40 = TIME GAIM- 
X041 = TIME GAIN- 
X04<? = TIME GAIM- 
X043 = TIME GAIN- 
X(.)44 = TIME GAIN- 
X045 = TIME GAIN- 
X046 = TIME GAIN- 
X()4 7 = TIME GAIN- 
X048 = TIME GAIN- 
X049 = TIME GAIfM- 

( INCOMPLETE KECOKD, IMPROPER PUNCHING, SENSITIVITY 
COOES ) 

X050 = TAPE IMPROPERLY INDEXED ( NO TIME LOSS OK GAIN ) 

X051 = GAGE INSENSITIVE AT SOME POINT ON RECORD 

X052 = SNOW WITH FUNNEL IN PLACE 

X053 = INTAKE SILT PROBLEM 

X054 = INTAKE PIPE STOPPED UP 

XU!55 = DRIFTING SNOW 

X056 = FOREIGN MATTER IN COLLECTOR 

X057 = CABLE BREAKAGE 

X()5B = GAGE TAMPERED WITH 

X()59 = FUNNEL FALLEN IN COLLECTOR 

X060 = PRECIPITATION LOSS NO REASON 

X061 = 

XU6^^ = 

X()63 = 

X064 = 

X065 = 

X066 = 

X067 = PAPER TAPE SUPPLY RAN OUT 
X068 = TIMER TURNED TO TEST POSITION 
X069 = 

X070 = NOTCH OF WEIR PROBLEM (ICE) 

X071 = LOG JAMS OR BEBRE IN NOTCH 

X072 = VALUE GREATER THAN RANGE OF INSTRUMENT AT SOME POINT 
X073 = float tape DISENGAGED FROM RECORDER 
X074 = 

X075 = 

X076 = 
x677 = 

X078 = ICE JAMMING ( CAUSE HIGH G H ) 

X079 = HEAVY ICED CREEK 

{ TRACE INDICATOR MALFUNCTIONS ) 

NOTE IF TRACE CODE USED OR COMBINATION OF TRACE CODE USED PL 
ACE A 1 IN COLUMN 55 OF PAPER TAPE IDENTIFICATION FORM 
X080 = TRACE PUNCHES WITHOUT PRECIPITATION 
X081 = PRECIPITATION WITHOUT TRACE PUNCHES 
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TRACE IMCOMSISTENT 


= 

XOH3 = 

X(,)H4 = 

XU8S = 

X0B6 = 

X()H7 = 

X08 8 = 

Xa89 = 

( TRANSLATOK READING ERRORS ) 

X(J9() = TRANSLATOR READ HEAD MALEUNCTION ( INCORRECT RECORD ) 
X091 = MANUALLY INSERTED READING ON DOUBLE PUNCHES WRONG 
X092 = 

X09 3 = 

X094 = 

X09 5 = 

X096 = 

X09 7 = 

X09H = 

X099 = 

( COMPLEX ERROR COOES ) 

XlOO = X02A+X()26 TIME LOSS IMPROPER INDEXING S PUNCH MOTOR F 
A I LURE 

XlOl = X035+X026 TIME GAIN IMPROPER INDEXING C MOTOR FAILURE 
X102 = X026+X()80 MOTOR FAILURE R TRACE WITHOUT PRECIPITATION 
X103 = X020+X082 TIME LOSS NO REASON R TRACE INCONSISTANT 

X104 = X033+X0fi2 TIME GAIN NO REASON R TRACE INCONSISTANT 

X105 = X023+X024 BATTERY FAILED R TIME LOSS TAPE INDEXING 

X106 = X023+X035 BATTERY FAILED R TIME GAIN TAPE INDEXING 

X107 = X050+X082 TAPE IMPROPER INDEXED R TRACE INCONSISTANT 
X108 = X020+X080 TIME LOSS NO APPARENT REASON R TRACE WITHQU 
T PRECIPITATION 

X109 = X033 + X08() TIME GAIN NO APPARENT REASON R TRACE WITHOU 
T PRECIPITATION 

XllO = X023+X026 BATTERY FAILURE R PUNCH MOTOR FAILURE 
Xlll = X024+X081 TIME LOSS IMPROPER INDEXING R PRECIPITATION 
WITHOUT TRACE 

Xli2 = X035+X081 TIME GAIN IMPROPER INDEXING R PRECIPITATION 
WITHOUT TRACE 

X113 = X024+X082 TIME LOSS IMPROPER INDEXING R TRACE INCONSI 
STANT. 

X114 = X035+X082 TIME GAIN IMPROPER INDEXING R TRACE INCONSI 
STANT. 

X115 = X012+X051 TIME LOSS TIMER INTERMITTANT R GAGE INSENSI 
TIVE AT A POINT 

X116 = X031+X051 TIME GAIN TIMER INTERMITTANT R GAGE INSENSI 
TIVE AT A POINT 

X117 = X070+X054 NOTCH OF WEIR ICE R INTAKE PIPE 'STOPPED UP 
X1L8 = X060+X()50 PRECIPITATION LOSS NO REASON R TAPE IMPROPE 
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ft INDEXING. 

XU9 = X013 + X05^ + X055 TIME LOSS T I MER .FA I LUKE fl SNOW WITH FU 
NNEL & DRIFTING SNOW 

X120 = X036 + X05^+X055. TIME GAIN TIMER FAILURE fl SNOW WITH FU 
NNEL S DRIFTING SNOW 

X121 = Xn24+X<)52 TIME LOSS IMPROPER TAPE INDEXING fl SNOW WIT 
H FUNNEL IN PLACE. 

X122 = X035 + X052 TIME GAIN IMPROPER TAPE INDEXING (1 SNOW WIT 
H FUNNEL IN PLACE. 

X123 = X024+X057 TIME LOSS IMPROPER TAPE INDEXING H CABLE BR 
EAKAGE 

X124 = X035 + X057 TIME GAIN IMPROPER TAPE INDEXING fl CABLE BR 
EAKAGE 

XI 25 = XD5 2+X055 SNOW WITH FUNNEL fl DRIFTING SNOW 
X126 = X026+X052 PUNCH MOTOR FAILURE G SNOW WITH FUNNEL IN 
X127 = X()13 + X080 TIME LOSS TIMER FAILURE G TRACE WITHOUT PRE 
CIPITATION. 

X128 = X036+X080 TIME GAIN TIMER FAILURE G TRACE WITHOUT PRE 
CIPITATION. 

X129 = X()26 + X030 PUNCH MOTOR FAILURE G TIMER FAILED 2 1/2 MI 
NUTE PUNCH OUT 

X130 = X081+X050 PRECIPITATION WITHOUT TRACE S TAPE IMPROPER 
LY INDEXED 

X131 = X09L + X()24 TRANSLATOR READ HEAD MALFUNCTION G TIME LOS 
S TAPE INDEXING. 

X132 = X091+X035 TRANSLATOR READ HEAD MALFUNCTION G TIME GAI 
■ N TAPE INDEXING. 

X133 = X072+X073 VALUE GREATER THAN RANGE G FLOAT TAPE DISEN 
GAGED. 

■XL34 = X033+X0ai TIME GAIN NO APPARENT REASON AND PRECIP. WI 
.THGUT TRACE. 

X135 = 

X13 6 = 

X137 = 

X138 = 

X,139 = 

X140 = 

X141 = 

X142 = 

X143 = 

X144 = 

X145 = 

X146 = 

X147 = 

X148 = 

X149 . = 

X150 = 

X151 = 

X152 = 

X153 = 

X154 = 


29 



X155 = 
X156„ = 
Xi57 = 
X15a = 
'X159 = 
X160 = 
X161 = 
X162 = 
X163 = 
X164 = 
X165 = 
X166 = 
'X167 = 
X168 = 
X169 = 
X170 = 
■X17l =■ 
X_17 2 = 

X173' = ■ 

X174 = 
Xi75 = 
X176 = 
XI 7 7 = 
X178 = 
X179 = 
X180 = 
X 181 = 
X182 = 
'X183 = 
X184 = 

xTss = 

X186 = 
'X18 7 = 
X188 = 

"xTa g ■= ' 

_X190_= 
‘"X19i' = ■' 
_X19J_=_ 
xig3' = 
X194_ =_ 
■■■xig's ■= 

_X196_= 

X19 7 

_>^198 = 
■xr9'9“= ■ 
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..A RPINDlU-I L. -CDMP.UIEa.,.^OU.aC.t„ BR-OfiRAK-l LEUm* 


LOGICAL*! WSH(16) ,HCARD1(54) ,HCAR02(54) ,HCARD3(‘54) 

_LCG 1CA1*1..0UT.2.( 6 J , ACAR D180 L- . - 

COMMON OUT2fACARD 

COMMON/ BLK ! /STYPE ( 9991 , AR_EC ( 2.5.7 .)j C.eEC (.2 57 ) , AIR A (2 57) t C. _ 

ITRA (257) , GAGeO) fGAGi’s) ,NSDTE(999,3) , KOATE t 267 , 5 ) 

_ __ COMMOU/ BLK2 / J , I j LjlN_5IOP j Ni:HECJliN.iIjDMjJ-SIOR£iJ CHEC-KLiM 

iCEr NWSHtKSEOfNSEQfNOTE,MIACiNSKlPfNLIST,NPFGt 

ENQPT iNCPTlIITPT, NIYPE tNX, KJ.f lXf.MAXN.Cil£.O.Fj NQiaF fNCQfit U 

3,Kff'NSTART,LDATAfELEREFfNSCiYACCtACCfNTRACE,ABASE,NSN0 

_4W, I ND^X , NGO I NEEQj..N.UT.j.AIRECj BTREC., 1 lie *.NDS.Ti 

5NTfNt,LTINT,N0RM,LHEC,DREC,NTIC,ADIFF,NFIRSTtNREFE,NPI 

1 DIj AR 0 1 , NH 2 ,_N DA Y , I MO_i.I.MN t NY.1 1 fM.iajLN.M2 , N_Y E AR , I.P Aj NY.l »..ND.. 

22»AR02TNH0URrNYE fNYXX, I TMD , I TOA , I T YR f I THR , I TMNi GREF f 

3 MA aid.,.N.D E X iX..Ti1 a t.KT (D A . lKI.Y t m.E j.K.TNR .....MM N , N S.TA-B£. t I.Y ..ARE 

40,MTINTf I WID 

_j; (IM MQN / B L K4 / L U. ( 1 2_) / B_LJS 5/TR( 2 )_ 

call ERrIeT ( 2i5,256t-ltl, 1) 

_NM.LE-=1 

NCPf=0 

NSEQQrQ. 

5001 KSEQ=0 

C JN.TJ.AL.I.Z..IN.G_0.F....8T.,0RA£,,E 

DO 1 L= I, 257 

DO 1 1= If 5 

AtRA(L)=0.b 

_ AREC(L)=00,00 __ 

CfRA(L) =0.0 

_ CRE C( L) = 0 0.0 0 

“l NDATEILf i )=0b 

„E10._5 5 _I f 1 l9 99 

DO 55 K=if3 

55. _ NSD TE ( I fK) =00 

’NST0PE=6 

ND TE = 0 

NSTnP=0 

__ J^SG_Q=0 _ . 

NSNOW=b 

ATREC = 0«0 

■BfREC=b/6 

KB = 0 : 

NREFE=b 

NGR M=0 
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■ C READ HEADER CARD FOR NUMBER OF PAGE HEAPING CARDS _ 

READ<5,152) NHEADtNSC 

152 FORMAT! I Ij Tjj 

C READ PAGE HEAD ING* CARDS * ' ’ 

LFJNiiEAD_.EQ.O) GO TO 5002 

READ (5, 5003) HCAROl 
5003 FQRMAT t 54A^I )_ 

ifinhead.eq'^iT go fo 5"bo2“ 

R EAJD ( 5i 50 03 )_ HCAR D2 

rF(NHEAb.EQ.2') GCiT5'5bb2 

READ<5 r50 Q3) HCARD3 

5o‘62 continue 

C X X X _X SNOW C_ARDS RE^ IF N.SC_GT ZERO ANO_PRECIP DATA 

i F ( NSC . eqVo ) “go" fb' 3 ~ ■ “ 

DO 1 51 1^1, NSC 

REA D t 5't 2 ) ( NSDTE ( I ,L ) , L = 1 , 3l ,StYPl (TV 
2_ .FORMAT I 31 2, Al) 

151 CONTINUE 

3 N0PT=0 _ 

NCHeCK=o " “ 

IND EX=1 

yacc=6'.o'' ■ ■ 

NEED=0 

IX=0 ■ ■ ■ ■■■ 

NSTART^O 

I F ( NSC . Eb'. 0 )" NSC= i " ■ 

C_ X X X X CONT RO L CARO RJ A 0 

R E AO ( 5 , 4 ) Tf A T E , i W 1 0 t WS H Tg AG " , N PFGVN t PT , rE O F , Tf Vk T , 0UT2 

l tNS KIP,NQE0FiKTItKT2 >KT^, KT4f NOSTt NE WDA T , IGREF 

4 F0RMAf(A3,IAti6Ai, 3^4,2121 Il,2I2f6A"T,TL,5T2t2Il,l4) 

CXXXXX XX XX LABEL CARD READ ^XXXXXXX 

.5 R£AD(5,6> NCO D, GAGE t NP I L , NTYP E% Nb'RAC'r,Wi VnD 1 , NYlli NYl 

_ __ liNH 1 » NM 1 r AR D1 , MT2 , ND2 , NY22 1 NY 2 , NH2 , NM 2 t A R02 , ICH ECK , NL I 

2Stf ITCHGtLDAlA,ELEREF 

6 F0R MAT( I4, 3A4t 12 1 2 1 1 1 2 ( 61 2 « F4. 2 > , 4 1 1 , F6. 2 1 

AGREF=IGREF " 

IF(NT YPE«E Q.l ) GREF = AGREF*« 1 

I F { NTYPE , EO . 2 -OR ^NTYpT. EQ .3 ) GREF=AGREF*701 

^ IF_l|GR£FiiQ..O.ANO.NTYPE.£Q.l> GREF = 001-0 

IF ( IGREF. EQ .0 .ANO.NtVPE .EQ TzV" GR£F=30 .00 

ibi_LQ_RE F 0_._A ND ._N J YP E . E Q . 3 ) G RE F = 6 0 . 0 0 

IF( IGREF. EQ .0 .AND .NT YPE .E'Q VsTANO. ELER EF . GT . 0 .0) GREF=E 

1LEREFF 60.0Q 

M1AC=1 ■ ■ ■ ■■ 

IF ( IT CHG.EQ.l) NTRACE=0 

C X X X X X X CHECKING'T6R"TRbPTR M AND WRITING HEA 

C DI NGS 

DO 9 9 2 ' MN = l7 3 

IF(GAGE( MN) .EQ.GA6(MN) I G,0 TO _?92__ 

GO TO 991 ' 




992 CONTINUE 

GO TO 8 

_99jI . _WRiTE(6,.Ii - 

7 FORMAT(' STOPPED WRONG TYPE DATA OR GAGE NAMES DO NOT 

IMAT CH* ) 

GO TO 3000 

„ 8 WR LX, £.( 6 j. 5 0.0.4) 

5004 FQRMAf(lHI) 

LFINHEAD.EQ.OI GO TO 5006 

WRifE(6f5665)HCARDi 

5005 F0RMAT(37 X ,_54 A_1 ) 

l'F(NHEAD.EQ.lj GO TO" 5006 

WRI TE (6_,_50p5)HCAR0,2 

TF(NHEA0.EQ.2) g'o to 5006 

W RJJ E(6t5005)HCAR03 _ 

‘5006 WRITE (6,9) sf ATE , I WI D , WSH ,GAGE 

9 _ FORMAT ( 37Xi ' STATE- » .A3 . 5X ♦« S TATE IND. N0. = .‘.iI4//37X , , 

1 ‘WATERSHED- 16Ai,5 X, 'G'aGE=‘ , 3A4//) 

NJCE.fO_ _ _ 

Nofe=b 

NWSH=0 

NYE = NYU 

• 

NbAY=Nbi 

NYEAR=NY1 

NHbUR=NHi 

NMIN=NM.l - 

nx=6 

IM0=MT2 

iDA=ND2 

rYR"=NY2 

IHR = NH2 _ 

IMN=NM2 

ARED=AR02 

NUT=b 

_ _ACC=O.CL - 

■ ” NSfARE = 0' 

I.STQRE=0 

iTic=b 

NEED = 0 , 

NGO = b 

NFIRST=1 

iTf fCHECK.EQ.d) GO TO 14 

CXXXXXXXXX READ TRANSLATOR ERROR CARD 

RE AD (5,31 ) ■ IMO , I DA , I Y , ‘l YR , I HR , I MN , ARED 

31 FORMAT( 36X,6I2,F4.2) 

lA"”' l‘F(NSfORE.'EQ.O) GO TO 15 

C X X X_X_X XXX X_TAKE 0UT OF STORAGE DATA STORE D F ROM LAS 

■■'C "'"T "READ 
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DO lOl J^l fMAXNO 

AREC( J)=CREC(KB) 

inNTYPE.NE.l) GC TO 101 „ , .. 

ATRA(J)‘=CTRA{KB) 

10 L. KB=KB+1 _ 

j='maxno 

GO TO 103 _____ 

CXXXXXXXX'X INPUT "data READ 'OF MAG. TAPE 
__ C_X X X_X X_X_X T_ES_T FOR FOJJR NINES _END OF_TAPE 
15 DO 150 ■j=’l, 25 5" ' ' 

Jf iMTYPE._Ei).l) ^0_J0 900_2 . _ _ 

.Re'AO(iff i0,END=2d0,ERi<=9000i ARECIJ) 

10 F0RM AT(F4 .2) _ _ _ __ __ 

IF{ fEOF'.EQ.lT'GO'fo 150‘ 

9001 if(_AP_EC(JKJQ.?9.9_?l_G0 JO lOA 

GCi to 150 

_9D0q READ! ITt lOt END=200>ERR=9001) ARECiJ_) _ _ 

IF! lEQF.EQ. i) 60 TO 150 

GO TO 90 01 _ _ _ 

9002 R EAD ( I T ,"99 , ENO= 200 , Trr‘= 9 6~d 3 T A'ffiA I'j ) , AR ECl J T 

99 FQRMAT (F1.0,F3.11 

IF( lEOF.EQ.lj GO TO 150 " ' 

9004 I F(AR EC( J l^EQ jg9. 9_. AN^AJRAJ J).E Q. 9.) GO TO 1_04 

GO TO 15"6 

9003 R EAD(1T,99. END=2Q0, ERR^900A 1 A TRA ( J ) , AR EC ( J ) 

IFI lEOF.EQ. 1) GO TO 160" 

^GO JO. 9 OOi 

150 CONTINUE ■■ ■ " ’ - - - -- - -- - 

C X X X X X _X_X_X X CONTINUE NOT END OF PAP ER__ TAPE 

J=255 ■ 

103 NST0RE =0 

NCHECK=0 

N0TE=0 

13 CALL DA TIME ’ 

G,0_T0 11 __ _ „ _ 

cxxxxxxx x'x “end of 'paper TJpe step pXper tape’ count e 
c r 

104 NCPT=NC~PT+1 ■ ““ 

nopt=nopl+i 

N0f'E=l 

N ST0R E=0 _ 

NCHECK=i ' ■“ 

NX=1 

I F ( J . E Q .”il 'g~o~ t 0 " 1 i o~’ “ ■' 

J1X.5P_ 

CALL DAII flE_ 

11 IFINORM.EQ.’l) “g-q" f0'"l2'‘ " 

GO. T0__110 

12 CALL CHdCKO “ 
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___ JJ2£.._£ja.aJ™Qi3-J-Q-3 — 

GO TO no 

C X X X X X X XXX R EAD END OF FILE MAMCHL QN ..CA.LA ,_REJ\D..„ 
200 NCPT=NCPT+1 

NO PT=NOPr -H 

NSTOP^O 

NST 0RE=0 

NCHECK^l 


.MIEr-L 


IF(J.EQ.l) GO TO 13 

JfiL-l 

GO TO 13 

C X X X X X X X X X TEST TO SEE I F EN D OF ALL ...PAPE B.. I A PJ A 


FO. 


C R A GAGEtOR 

j: X X X X X X X X_X_ E.ND.,.0F.ALJL. jape R.,.IAP_E_S., F.PR .THE.. RU^,N^ 

Tio IF(NOPT.eQ.'NPFG) NWSH=i 

I FJLNC P L?.EQ..f^JTPT) NST0P = 1 „ 

LTINT=0 

I F(NX.EQ.l) G O TO 311 

NX=0 


311 


IF(NT YPE.LT» 1 .OR .NTYPE .GT .3 ) GO TO 9 91 
IF(NTYPE'.EQ.i) CALL PR EC IP 

IF(N TYPE. EQ «2 } CALL RUNOFF 

’lF(NTYPE.EQ*3) CALL AQUFER 
NSTARE=1 


NICE=L 

1F(NC H ECK .EQ.l ) NS T AR E=Q 
iF(NCHECK.EQ. i) GO TO 28 

GJD T0_15 __ 

■■'28 CALL OUT'p'uT 

If (NSTOP .EQ.l) GQ . TQ._3-2 — 

IFINWSH.EQ.l.AND.NEWOAT.EQ.l) GO TO 32 

IF( N W S.H ._E Q. U... Gg_ T0..3 - 

" GO to 5 

C X X X X X X „X__X _.X__,LNJ5 .J3F.J..^0Gf^AM_,. WRITE .INff.C, about 


SE 


PERATERS 
32 NS£QQ-NSEQQ<-NSEQ 


50 


IF( lEOF.EO.O) GO TO 51 

WRITE ( 6,5 0) - 

FORMAT (• INPUT PAPER TAPES WHERE SEPERATED BY EDFS 


GO T O 50 0 - - - 

53 FORMA T?* ^ INPUT P APER TAPES„_W_H.E.RE_ SEPERATE D JY_,.,F.gUR-N L N„_. 
lesM 

500 IF(NEW DAT..EQ,OJ GO TO 50_1 

WRITEr6t452) NS'EQfNM'lE . . 

A52 FORMAT! 1H0» • T0TAL_f 6C0RI^_ J^Ri TJEN . ..Ojl MA.Q.* . TAPE- ,tI6t 

IFOR TAPE FILE NOiSIS)"” 

If (NSKIP.EQ^l) GO TO 500 1 

NFlLe=NFILE+l > 


35 



END FIL F KT 

GO TO 5001 " 

501 bLR ITE (6.451 IN ?;F qQ 

A51 FORMAT ( LHOf ‘TOTAL NO. RECORDS “WR I TTEN ON''MAG.”"f A?¥= 'Tl 
1 6 J 

IF(KT1.NE,6) ~EliD~~F rLE”i<jT 

LFiKT2. NE.O) END F ILF KT2 

IFIKT3.NE.0) END FILEKfa " 

r F( KT4. N E.0 > END FILE KT4 

3000 STOP ■ ‘ 

EN D 

S UB r 6 U T I N E '”C A T I ME" 

— £ jDAJJ|_j^^^^ TIME FOR EACH RECORD RFAD TN 

LOGICAL*! 0UT2( 6) tACAROrao) N 

COM MON 0UT2. ACARn 

1 ? D ^ ^ T YP E ( 999 )■■; AR EC ( 25 yT; CR ecl’2'5Tj 7 A TR a7'2 5 7 ^',0 

— , G AG j 3 ) , ND A TE ( 2 5 7 # 5 1 

C0MMON/8LK2/J ,I ,L ,NST0P,NCH£CK,NST0R67isTaRFrirHECK"/Nl ~~ 

iii£l JjWSHt KSE Q tNSE QtNOT E»MIACtNSKTP.NLIST.NPFG. 

»nx, kb, I x7maxno, I ecT;'N0E0F7NC0D7rf — 

“^J-^r~J^Fi?J=PAL4.ii.LlE££jJ^AC_tY race , abase , nsno 

AW,INOEX,NGO,NeEO,NUT,ATREC,BTREC,ITIC VnDS T 

— — E I Npx 
MT 1 , NM 1 ,_NY2 . NMONTH , IHR,N 

idi,aroi,nh 2 ,noay,imo,imn,nyii,mt 2 , nm 2 nFeA R Tda ',Ty 1 Tno — 

-?^RU2,WHP_U.R.iNY J.NYXX. ITM0.1TD A.IT?;?;j»»: !?1’ 

4otMTrI3Tf '^'f"'<’PSfAR£,TY;ARE “ 

coMMbN/BLi^^LTLlTai/BrKFnr'M 

X X X X X X X XX 

?£.(ML4F*EQ.*00*ANO._NYE.NE.2^0) go to 11 

I F ( NYEA R. £ Q . 0 0 . AND. NYE .NE '.2 OT GO 'To 1 1 ' ' 

— — -^FiNXF4B,/.fr*4:JL-J..9 •. N Y_e a r j[_ _l y. ( 2 ) =2 9 

C ^ E height^ ^ ^ f'l^LiNF ARRAY WlTH'FAtl'Tmr OF 

"li IF ( j7EFiF56~r 

^D0_J3 .i = l .f J 

N DA T E ( I , l ) = NMONTH 

NDA J E (J j_2 r= NO AY 

NO ATE (1 , 1) = NY EAR - - - 

N DAT E ( I , 4 jj^HOtJR __ 

noate(i,5)=nmiF"’ "■■ 

Lfilficop. .X?_.JjO 00 -XN GO to 446 

1 1 ^AMn^?TUD* * ^^^•^Q«N0A717'ANb7TlVR.FQ.NY’lA^ 

~~'NMlF=WfN+NpTL ' ■ 
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olo 


(UAC^MIAC-ii 

IF(NMIN«NE.60) GO TO 34 

mQUR = NhiQ,ljR+01 

NMIN = 00 ■ ■ 

-3<l ^I-F-(JUi!lD.U.R-tLQjt24LL-AMD_»JJlMiW»^Q.tQ0i L GO TC 13 

IF (NHOUR.lt, 24) GO TO 13 ' ' 

MDA:)t^!my.+Qi_ 

NHOUR=00 ■■ ■“■■■ 

^K.?_NMO.NTH 

iFINbAY.LE, LLUK) J GO TO 13 

NMONJH=NMONJH+01_ 

NDAY=bl ■ ^ " 

GO. TS_1 3_ 

12 NMONTH-Of " “ ‘ 

NDA_y=g,l 

NYEAR=NY'rARi6l” 

LLL_L21=28 

iF<NYEAR.EQ.06.A(^0.N YE . N E »2 6 } ' G 0 ' T 0 T 0 61 

IF<_ (N YEAR/ 4*4 ) . E 0 . N Y E AR )_ L L Li 2J^2 9 „ 

1001 IF( NYEAR.NE.lOO) GO TO '20 ’ " 

N. YEAR =00 

N Y i 1 = NY 1 i + 1 ■“ ' _ - 

NY22 = NY22-«-l 

20 NHOUR=00 " "■■■ ^ 

dMINrNPIL 

13 CONTINUE " ■■■“ *■ 

NORM=0- 

GO TO i'oe ■ 

-iO.I._NaRM=l 

108 PETURN ' 

£.NQ 

SUBROUTINE CHECKO 

...AUM.u finds INO. OF ICHECK CODE IS USED AND 

A ERROR HAS OCURRED ’ 

L OG LC A L * 1 0 UJ 2_( 6 ) , AC AR 0 ( 8^) 

COMMON 6ut2,ACAR6 ' 

N / B L K l/S TYPE(999),AR EC(257)yCRE^(2g7_) , (^RA{Z57) ,C 

1TRA{257) , GA6E(3) ,GAG(3) tNSDtE(999f 3T,NDATE'( ZSfrSl 

- A.DMmN/.8LK2/.J , NCHECK_t NSTORE » I STOR E ^ ICHECK * NI 

1C e f N WSH , KS EQ , NS EQ , NO TE , MI AC , NS K I P , N L I S f , NP FG 

.2 NQ.P T I..N.C P T t N.TP T_t NT YP E.» NX I X ».MAXN0 1 1 EO F t NO E Q F , NC 00 » IT 

3 1 K T » N S T A R T , L D A T A , E L £ R E F , N S C » Y AC C f A C C N Y R A C e1 A B A S E ,‘N S NO"' 

Aj.iJLNDEXj.NG.O_,.NEEp > NUT f ATR EC , BTREC , I TJ C„ __ , N D S T i 

5NTINT ,LTINT rNORM, LHEC , DR EC ,NT IC ,TdI FFf NFTrSTi N~R EFETnPI * 
ly. 

COMMON/' BL K3 /NH i i N Y2 2 »Wm iFtTYRTMT 1 1 NM 1 » NM'QNT H , 'l H'R't'N 

,tM2j.N.pA Y fJMO 1 1 MN^^^ , NM2 , NYE A_R , I DA t NYl , ND 

22fARD2f NHOURfNYEfNYXXt T tMO"» ITDAl I f YR , I THR /iTMNi GREF , 

BHASHtND EX ,_K TMO , KT DA , KTY , KT YR , KTHR , K TMN , N ST AR E , I Y t ARE 

4D,MTINT, iWiD " 
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^MMQN/BLK4/LLL< 12) /Rl K5/TR ( 2 J 


c * ♦ 
c 

* CHECK TO SEE IF PAPER TAPE SEPERATORS EOFS 
S 

0R~4 ' 

N Fn E 

NPEXT=0 "■ ■“ 

— - IFdEOf .EQ.l) GO TO 205 

C X X 
C 

X X X X X X X TESTING TO SEE IF END OF PAPER 
ROL FOUR 

TAPE 

conT 

C X X 

c 

X X X X X X X -NINES WAS LEFT OUT QR" 01 FFEP E'NT ( S EE 
ECKJ 

ICH 

107 IF(NOTE.EQ.O) GO TO 100 ' 

C FOUND 4 NINES 



108 

IF(ICHECK.EQ.2) GO TO 116 

IF( ICHECK.GT.5) GO TO 125 



118 

J = I 

NST0RE=0 



116 

60 TO 110 - - - 

IF(NTYPE.EQ.l) GO TO 9004 



10 

READ! ITt 10tEND=20l,'£"RR=9001) EBEC 

F0RMAT(F4.2) 



120 

IF( lEQF.EQ. 1) GO f5~T09 

IF(£REC.EQ,99.99) GO TO 118 



C X X 
109 

X X X X X X X STORE DATA FOR NEXT PAPER TAPE 
NST0RE=1 




IFINTYPE.EO.l) CTRA(1)=£TRA 

CREC(1)=ER£C 




'maxno=i " ' 

J=I 




KB=1 

GO TO 110 



9004 

99 

READ( IT,99, END=201,£RR=90b5T ETRAi'EREC 

F0RMAT(F1.0,F3.1) 



9006 

IF( lEOF.EQ.l) GO TO 109 

IF(£REC.EQ.g9.9.AN0.ETRA.E0.9. ) GO TO 118 



9005 

GO TO 109 

REA0(IT,99, END=201fERR=9004) ETRA,EREC 



9001 

GO TO 9006 

REAO{ ITflOf END=201,ERP=116 ) EREC 



100 

GO TO 120 
.iNCpT=NCPT + l 




NOPf=NOP‘T+l ' — 

NCHeCK=l 




IF(NPEXT.EQ.l) GO“Tbl08 

NEDR=0 




i2=J-I ■' 

J=I 




IF(I2.EQ.O) NEDR = 1 

IFINEDR.EQ.l) 12=255 




11 = 1 + 1 ■ 

IF(NEDR.EQ. 1) 11=1 




KeND=Il + ( 12 - 1 ) ' 
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NKK = 0 




NCC = 0 

_XAJ<;=Q. 




IF(NEDR.EQ.O) GO TO 170 

.-.£O...IO__.LYQ 



170 

DO 171 KP=I 1,KEn 6 
-X±iiJIY££jL£ja.OJ__.CJAAXKP^ A T R A { K P 1 



rrr 

CREC(KP)=AREC(KP) 




^ -^£5-fi--XQ. . MAP_ T APE.. J NT Q_KREC_ ARRAY IF(NEDR = 1JL GO TO 

179 DO 180 KX*I1,KEND - - — - 

IP-LLE0£..EjQji 1.,L. G.O„.TO. i_ll _ _ _ _ 

IF{NTYPE,EQ.l) GO TO 9007 ' ' ’ ” “ 

LE. RJ-CJ AX ). .«.£ Q « 9 9 , 9 9 ) G O TO 182 

9008 IF{ CREC (KX) .EQ.OO.oi GO TO 180 

112 NKK-1 _ 

GO TO 184 

U 1 IF( ER EC ^EQ, 00 . 0 ) .GO TO 180 

GO TO 112 "■ 

. — ?-Q-6X..J_EiitR_ECj[j<. xj„.»..E Qj*. ‘A nd « ctr a (kx).eq.9.) go tg iap 

GO to 9008 

1 80 CGNI_INUE__ _ 

NEDR=i “ ■ " - 

U<J<=IJ<K+1_ 

I F { ik K . EQ . 5 ") GO To '12 5 ~ ' 

174 1 1=1 

■kEND='255' ‘ ' 

GO TO 190_ _ 

182 IF{ ICHECK-eTT) G'o' TO IsT ' 

!£( KX.EQ.KENO) GJD TO 19_9 

188 MAXNO'=kEND-l<X ' ' 

!<B=AX+1 _ 

189 NSrOREs'l 

GO....T0.i l_p_ 

184 I F i( k X . E Q . k E N b )” G O T 0 173 

KV=K X-«-l 

192 IF'irEbF»EQ*i)G0Tbi86 

iTiyiYP E -.EiU, 1 L. G 0.„T 0 9009 

I F ( CREC { kV ) • EQ.'9T9”9'r G’o' TO ~lT2 

.18.6 KV.EQ.KE AD J GO TO 187 

Kv^kv+i - 

P.P-_.IP. J.92 

9009 Tf'I CReT( kV) Veq. 99.9. AND.CTRMKVr.EQ79;i^ lY? 

GO T O 1 86 < vj i ( c 

18 7 MA'XNb=¥ENb-‘<kx-l }”“ “ 

_KB=KX 

IF ( rCHECK7eQ;3 ) GO TO ■l88 ' 

_ GO TO 189 _ 

1 7 2 MA X N b = k E NO- K V 

*i§=Ky+l 

go" TO 189 ~ ■' "" - 
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LI3_ 

CREC(1)=CR£C{KX) 

IF(NTYPE.EQ.I) CTRA{ 1)=CTRAIKX) 

11 = 2 

190 

KEND=255 

DO 191 KX=I1,KEND 

IF{NTYPE.EQ.l) GO TO 9010 

READ(1T.10.END=201.FRR=9002> r.RPr/t^vi 

9010 

GO TO 191 

. REAO( IT, 99, END=201,ERP.=9011) CTRA< KX J .CRpr / kX > 

9011 

GO TO 191 

.R£AD( IT,99,END=201) CTRA(KX) ,CREC(KX» 

9002 

GO TO 191 

READ{ ITflO, EN0=201) CREC(KX) 

191 

CONTINUE ~ ■ 

GO TO 179 

183 

NCC=NCC+1 

IFIKX.EQ.KENDJ go to 174 

IF(NCC.E0.2) GO TO 188 

I1=KX+1 

199 

GO TO 179 ■■ — 

NST0RE=0 

125 

GO TO no 

WRITE(6.1261 

126 F0RMAT(' UNABLE TO DETERMINE END OF PAPER fAPE-'-”STOP P 

1 E D * ) 

NST0P=1 

. GO TO no 

C X X 
205 

X END OF FILES USED AS TAPE SEPERATORS 
_LF(NOTE.EQ. 1) GO TO 108 

I F n C H £ CK . E Q . 2 ) Gd~t 0 ”206 ~ 

- - ..GO TO 100 


206 DO 207 KX'e=1,255 


,XQ_ 9012 

REAO( I T» 10) ENb=203tERR = 9603) CREC ( kXE J 

GO TO 2 07 _ 

^9012 READnT,99,E“N0=263,ERR=9Tl^*' ,CREC( KXE) 

9013 READTrfty9T£TD=2T3rcr^ 

-IQ-2.Q.7 

9003 R E AD ( I f f'r67ENb=2 OSV TrTC ( 

..J.07 CONTI_Nye _ 

MAXN0=255“ - 



NS’TGRE='i - - - 

__ 

GO to fib — — - 

GO TO 10 0 

CXXXXXXXXX R"EAb END OF F RE~BRI'NCH "qn ^ 
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Me_6£A0J. _ 

201 NSTQP=0 " ■ 

^2.02 JlQl£CK=.l 

NSTQRE = 0 ■ ^ 

-tifiJ£.=_L 

GO TO 118 “ ■ ' ' ■ 

LLQ_.-_REjrgRfl 

END ■ ■ ■' ■ 

- ^subroutine precip _ _ _ 

LOGICAL*! 6uT 2( 6) rACA“RDT86T 

COMMON 0 UT2 » ACARD._ 

COMMON/BLKi /STYP e'i 999T7aREC( a’s?") ,CrTc'[257 J 1 ATRA (2571 , c" 

LIR.A12.57j_i. £A G1 nij, MGJ.3 i,J_SJT.E.( .9 <^9 jul 1 j N D A T EJ 2 5 7 , 5 L 

C0MM0N/BLK2 /J 1 1 » L ,NSTQP t NCHECK , NSfORE , rSTCR Et I CHECK , nT 

lCE.f fiMH rK^.QjJNSMjJiGlE t MIAC # NS K I P , NL 1ST, NPFG , 

2NOPT ,NCPT ,NTPT,NTYPE »NX, KB , I X , MAXNO , I EOF , NOEOF ,NCOD , I T 

AR Tj.LM.IA fiiJ R E Fj NJ C , YA C C j A C Cj NTRACE, ABASE, NSNO 

4W, INDEX, NGO, NEED, NUT, ATReC,BTREC,i TIC ,N 0 ST, 

^?J!iMliiJ7^J.IxNQRM_,_LHe_CjLQ.RJ.Cj.NJ.lC^^^ 

6L 

~-ii.UMJ10N/BU<3/NH^^^^^ ,JYR , MTl j NMl ,.NY2 fNMONTH, IHR , N 

1 0 1 , ARDl , NH2 , NDAY , IMO , I MN ,NYl 1 , MT 2 ,NN2 ,N YE AR", I DA,NY1 , ND 

■22.tARi)lj,NHQURj.MEANYMjr-_ i ITYR, I THR , I TMN t GREF , 

SMASH, NDEX, KTMO, KTOA, KT Y, KTYR, KTHR, KTMNtNSf ARE, lY, ARE’ 

4D , MTINT,1 WIQ 

COMMON/BLKV/LLUiri/BLKS/fRm 

IFIN ICE^EQ, 1) GO T0_229 

WRITE (6, 201) 

_201 FORMAT ( 26X, ' GAGE » , 7X , ' MONTH DAY YEAR • , 4X 

3'TIME TRACE PRECIP DEPTH TYPE PRECIP CODE'/ 

.1. .LmaJ,! -HR I N £0R INTERVAL 

2 ACC. '/77X, M INCHES) (INCHES)'/) 

-JC.,..X. X..X,A-.X.A^ BEGINNING DATE TIME GAGE HEIGHT IF 

C THE FIRST 

c X X X X X X X X X READING OF A PAPER TAPE 

BRD’i = ARDi*l6.6 ■ 

WRIT E(6, 4 6) MT 1 , ND IjiJYJ Ij N Y 1 ,^NH_1 ,J\1M 1 , BR 0 1 _ 

46 FORMAT! 37X, 'PAPER TAPE BEGINNING DATT, tTME7REA57NG= »' 

1 2 tJ. IjI / .! , 2 1 2 i 3 X , 1 2_, I 2 ,_2 X , F 4 . 1 / ) 

CXXXXXXXXX ROUTINE TO EDIT OUT EXTRANEOUS READINGS, ' 
.C_ w_rliejdn_mag 

NflC=0 

NSN0W=0 _ 

IF( J.EQ.l ) “go T0'’3l'r” ' - 

1=3 


229 

GO to 306 

1 = 1 




306 

IF(NSTARE.EQ.l) 
ABASE=AREC( M 

GO 

TO 

307 

307 

IF(NTRACE.EQ.l) 

To“ 


350 
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X X X X X X X TRACE OUT RO UTINE 

IFIARECdl.LE. ABASE) GO TO 313 

iilXMjLl - 

NJOE=l 

_ X iEQ±JjL. QiL T 0 ^0 

IF( AREC(KIX).EQ.’ABA'S£) GO TO 401 

40_0 _ADJFF = AREC( U-ABASE _ 

iF( AOIFF.GT .GREF ) GO TCI 313 

no -J FINSNO W . EG . 1J_G0. TO _309_ 

MASH=i 

11J>___0Q 3J,7 1N DEX=1 » N$C 

iFrNDATEflf 1) .EQ.NSOfE(iNOEX,i).AND. NDAT E U »2) .EQ- NSO 

1TE( IN DEX tZ) .AND.NOATFI I>3) .EQ. NSD TE( INDEX f 3 ) )G0 TO .,,.3.15 

317 CONTINUE 

N SN0W= 0 _ _ 

GO TO (309,313) , MASH 

D REC= AREC( I )-A8ASE _ _ _ _ _ 

- 

_ _TRACE = TR(1) 

IFdX'.LT.UrGO fo 32^ 

MRITE(6,329) ______ 

329 FORMATdH ) 

IF( NSKIP .EQ.l) GO TO 400 0 

LX=I-1 

TYP e=TR(l ) 

I'FILX.EQ.O) go to 392 

KTM0*N0AT|.(LX,1) 

KT D A= ND'AT E ( LX , 2 ) 

KTYR=NDATE( LX,3) 

KfHR=N0ATEiLX,4) 

KTMN=NOATE( LX,5) 

KfX=Wll ' " 

392 AKTC_=ACC~DREC 

WRITE ( 6 ,'27"yGAGE , kTMCtKTOA^i'^^^^^^^^ KTHR ,Kf MN , Tf^ ACE t AT R 

1£C,„IYPE,AKTCj.NC0D 

w'r I T E ( k T ) i W I D , G A G ¥, K T MO , K f D A , K T Y , K T Y R", K T H R rk t M N i'f R A C E V 

JATRECfTYPE, NCOD 

kSEO=KSEQ+l 
__ __GO_TO 328 

3^8 tYPE=tRrrj -■■■■ ■ 

IF(NS N 0 W . E Q . 1 ) _T Y P E^=_S T Y P E N 0 EX ) 

IF'(NSKIP.EQ^n' GO TO ‘4000 ' " 

wn TE {, 6 ,_2_7 )_GAGE , ( NDATEd ,_M ) , M= 1 , 2 ) , NYl 1 , ( NO ATE ( I , N ) f N 

1 = 3, 5), TRACE ,OREC,TYPE,A(:‘c;NCOb’ 

.27 F..P RilA TJ 23 .k » , 3 A4 ,3X,I2,4X,I_2,4_X,2I2,3X,I2,3X,I2,5X,A1,7 

1X,F5.1,9X,AI , 4X ,F5 . 1 ,4XVi 4 r 

.WRITE(K T) IWID, GAGE , ( NDAT E_( I , M ) , M=1 , 2 ) , NYU , ( NDATE ( I » N 

1) ,N = 3,5) ,TRACE,b(^£C,TYPE‘,NCOD”‘' 


47 



o jo O i j j O JO o 


KSEQ=KSEQhH 

4000 IF(NDATe( ff aTTeq” 24J NSN0W=0 



NITIC=0 

XTl.C.=i). 

ABASE=AREC( 1) 



IX^O 

^^UXrl _ . _ 

GO TO 312 

4 01 ABASE=AREC( KIX> 

I=KIX 

LF(.[1J.Q£jlECIs.2L_G0 to 403 _ 

GO TO 313 

_ 

N0EX=INDEX 

£a ,_TQ-.( 3_09,,.313>.»Jfl AS.b_.„ 

x_x _x_ Jt. J.QJJ.LNa„.gF..,I R A C r R AX E P..Q UJ I N.ES. 

313 IX=IX-«-l _ 

I F < NOATE ( I , V) .EQ. 24") NSNOwi'o 

.3A2_._„jLf_LL,X(3 Wi.„ei3..J0. .3.U ..... 

1 = 1+1 

GO TO 307 __ _ 


X X X X X TRA CE IN ROUTINE 

.35.0 |F1AR.EC( I l.GJ.ABASE ) G0_TX 351 

403 IF( isfORE.EQ. f) GO TO 352 

I.F L4LaA.( IJ....NI.E.. S..t Q.L. G.Q-Ji).^54 

360 IST0RE=1 
_ ITMO=f^ATE(l, 1) 

lfDA=NDATE( I, 2] ' 

ITYR = iNDATE( 1,3) 

lfHR=NDAfE( If4) 

_.ITMN=NDATE( It5) 

355 1 110=1 ■”■■■■ 

1F (NS N0W . EQ i.1 ) GO TO 3 1 3_ _ 

MASH=2 

.GP_T0 316 _ _ 

35'4 rflC=b 

IF(NEE D.EQ. 1) NIIC=NTIC + 1 

IF(NTiC.lt.l2) GO foTis "' 
NEED =0 

ntic=6 " “ 

^0 TO 313 

364 KSEQ=KS6Q + 1 

400 1 IST0RE=0 

ITIC=b 
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NTIC^O — — 

IX=0 

NUT= 1 * 

IF(NGQ.EQ.l) GO TO 310 

G O TO 313 

352 IHNEeO.EQ.l) GO TO 365 

IF( ITIC.EQ. 12) GO TO 366 

ITIC-ITIC+1 

GO TO 3 13 

365 IF(NTIC.GE.i2l GO TO 390 

NTIC^NTIC-H 

GO TO 313 

3 90 NEEpgQ 

■ IST0RE=0 

NTIC =0 

ITIC=0 

_ _ G O TO 3 13 _ __ 

366 IF(NSNOW.NE.O) GO tO 367 

IF(ATRA( I),EQ.8.) GO TO 360 _ . 

IST0RE=0' 

ITIC^O _ 

GO TO 313 

367 1F(N0A TE( It 4) .NE»2Aj GO TO 355 

ACC=ACC+AtR£C 

_ J.PiN_SKLP«EQ.lJ_^ T0_400l_ 

WRrT£(6,f29) 

_WRITEi6j_27J GAGEt ITMOtlTDAtNYll tlTY R, ITHRf ITMNf TR(2) »A 
1 f R e C , S f Y P E ( N 6 E X ) , A C C , N C 0“0 

_ _ WR1T_E.( KTLJ WI PtG^Eji T^^0f IJDA i NYl 1 ,J TYR , I THR , I TMN f TR < 2 
i) ,BirRECfSTY‘PE(NOEX),NCOD 

NSNOW=0__ 

GO TO ‘364~’ ‘ ' 

35_l__ KI.X=I + 1_ 

NJ0E'=2 

IF(_KIX.EQ.J J 60 TO 402 

Tf ( AREC [K i X ) . EQ «'ABA‘SE r GO TO ' 401" 

402 A DIFF= AR£ C( U -ABASE _ _ 

IFCAOiFFrGT.GREF ) ■■go'"TO‘ 368" ' 

__TRACE=IRi2) 

TYPE^TRd j 

IH NSNOW. EQ. 1 ) TYPE = STYPE(NOeX) 

IF (NEED. EQ. 1 ) "GO TO Tn” ‘ 

IFI ISTp^£_.EQ.l) GO TO 370 

iTic=o ' — 

Q.0_T0^1_0_ 

370 WRrfE"{6',329r" " 

ACCfACC+ATREC 

IF { NSK'I P. EQ". 1 }" GO TO 371 

ILE L6.!l71.,G A_GE » I'TMO , I TO A , N Y 1 1 , 1 T YR , I T HR , I T MN f TR AC E » A 

ITREC, TYPE , ACC,NCO'd” 


1E,BTREC,TYPE,NC0D 

„m ma-i 

IF(NSKIP.EQ,1) GO TO 4o6l 

GO TO 36 4 _ _ _ 

391 NG0=1 

G O TO 40 Q1 

368 IF( ISTQRE.EQ. 1) GO 10352 

_ GO T0_313 
311 KTMO=NDAfE( J,li 

K TQA- NDATE( J.2) _ 

KtY=NYil 

KTYR»NOAT E( Jt31 

KTHR=NOATE( J»4» 

^miN=NDATE( Jj(Jl _ _ __ 

RE TURN 



SUBROUTINE RUNOFF 

LOG ICA L *1 O UT2 U ACARO ( 8 OJ 

COMMON OUT2,ACARb 

C0MM 0N/BLK1/STYPE(999> tAREC < 2 57 ) iCgfC ( 2.57 I , ATRA ( 257 ) »C 

1 T R A ( 2 5 7 ) , G A G E ( 3 ) , G A G ( 3 » , N S 6 T E < 9 9 9' , 3 i , N 5 A f E ( 2 5' 7 , 5 ') 

C 0MM0N/B LK2/J*I tL >NS TQPtNCHECK«NSTO RE* ISTOREtICHECKtNI 

ICEf NWSHfKSEQ,NSEQ»NOTE,MIACf NSKI P, NL I ST , NPFG r 

2NQPT »NCPT« NTPTtNTYPEtNXyKBf IXtMAXNOtlECF ,_N0EGF,NC0p,.IT 
3»KTfNSfART,LDATA,ELEREF,NSC,YACC,ACCtNfRAC'E,ABAS6»NSNO 

4WtLNDEXtNGa,.NEEO,NUT,ATREC,0TREC, ITIC ,NDST, 

5NT ’i NT , LTIN f ,NORM , LHEC , Opic « NT I'c t ADIFF |NF I RST i NR EFE , NP I 
_6L 

COMMON/ BLK3 /NHL, NY22tNMIN, I YR , Mfi , NMl , N Y2 , NMCNTH , I HR , N 
_ _ 1G1 -iAR.D1jlNH 2 t^NDAYj IMO tXMNj NYl Ij flT2jiNM2 , N YE AR., I DA ,,NY 1., ND 

22,Ar‘D2,NH6uR,NYE,NYXX, ITMO, ITDAtlTYR, ITHR,ITMN,GR£F, 
3MAS H,N 0EX,KTM0,KTDAtKTY,KTYR,KTHR, KTMN , N5TARE , I Y t ARE 
AD,MTINT,iwlb 

CpMM0ri/BLK4/LLL( 12)/JLK5/TR{2) 

“ IFiNICE.EQ.lj GO TO 229 

L TlNT ^l _ _ 

WRITH(6,i2) 

_ 12 F0RMAT{26X, •_GAGE », 7X MONTH DAY. YEA_R 4X,„ 

2'TIME TIME DISCHA'rGE DEPTH C0DE»/26X,' NO. ',2 

iJX ,J_HR __ MI N_ _INTR TABLE_NO. (f,TJ..'./ ) 

C'T“X X' X X X X X X WRITE BEGINNING OAtE TIME GAGE HEIGHT IF 

C THE FIR ST 

'CXXXXXXXXX READING OF A PAP'ER TAPE 

WRITE (6,46) GAGE,MT1,NDI_,NY11 ,NY1_,NH1 ,NMl,ARDl,NCgD 

46 FdRMATT2X7 ' begin OF TAPE LABEL* ', 3 A4 , 3X , I 2, 4X, I 2 , 4X , 

1212, 3X,12t3X,I2,21X,F6.2,4X,IA/) 

C ‘testing 'beginning NUMBER' OF “AREC(J'S) 

IF(NSTART.EO.O> GO TO .230^ 

IF(NDATE( 1, l).EQ.N0ATt(257,l) .AND. NDATE ( 1 , 2 ) ♦ EQ , NOATE ( 




125Lt_2 ) .AND«N D A T Ej lt3) . E Q . N D A T £ ( 2 5 7 » 3 ) . AN D . N P A T £.U t A) 

2Q-MDA‘fEt257»4).ANb.NDAfE(l f5).EQ.NDATE(257,5J ) GO TO 2 

GFTd“2y9 

231 ARE C( 1)=AREC(256) _ _ 

DO 298 M=l,5 

298 NDATE(l,H) =NOATE(256tM) 

NSTART=0 

GO TO 229 _ _ _ - - 

230 1=1 

Kf 2 _ _ 

NTINT=1 

GO TO 18 _ „ 

229 NTfNT=NTINT + l ' 

If.1 

_ c X_ X X X X_ X X X ROUTINE TOjEOlT OUT EXTRANEOUS READINGS, 

C WRITE ON MAG 

18_ _ JP(NSTART.EQ.l) 60 TO 17 
r9 IFIARECd ).Gf7GREFJ ARECl I 

. I_F J ^ E ClKi . GT . G RJE FJ ARE C LK ) = 0_. 0 

I F ( ( AR ECU ) . EQ. AREC ( Ki KANDd NDATE ('K, 4 )'.NE GO T6 

125 _ 

IFINSKIP.EQ.l) GO TO’aOOO ’ ' 

24 IFlLTJNT.EQ.l) GO TO 4003 

4005 IFINLISf.EQ.O) GO*’ to's’bo" ‘ 

27 ) , _^E^< NOATE ( I } M ) ,3=U2 ) , NYl 1 , ( NOATE ( I , N ) , 

1N = 3,5) ,NTrNT,NDSt,ARECn J ,NCOb 

iT- _.FQRM A T ( 23 X , ^ 3 A4 , 3 Xj 1 2 , 4X , I 2 , 4 X , 2 1 2 , 3 X , I 2 , 3 X , I 2 , 4 X , 1 3 , 7 

1X,I1,6X,F6.2,4X,I4) 

J. W_I ,D tGAGE , ( N^AT E ( I , M ) | M = 1 , 2 ) , NY 1 1 , ( NDAT E ( I , N 

1) ,N = 3,5) ,NTINT,NOST,AREC( I j ,NCOD " 

_ KSEQ=KSEO+i 

MTiNt=NflNf 

4000 L=I__ 

NUt=l 

A5 l_fK _ _ 

NT I NT =0 * 

25 IF(K.EQ.J) GO TO 23 

NtiNT=NTINf+l 

- _ K = K_+1 

GO '"to” 19' 

6.,_40pj4)_GA G^^ I M = 1,2),NY11,(NDATE{I,N), 

1 N= 3 , 5 ) , NT I N T , NO S T , A R E C ( i ) NC 00' ' 

~^.QPA_.I:G.R,MAT( IX, • first record on MAG,= ', 3A4 , 3 X , I 2 ,4X , 1 2 ,4X 

^LTINT 0 ^^»^2,3X,i2,4X,I3,fX,Il,6X','F6.2,4X, 14/} 

GO to' "^ oTs' ■■■ 

G..A..X_X X X_ X ROUTI NE USEj^AFTER FIRST TIME THRU (NSTA 

C RT=1I “ 
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11 JLLLM£UiJ..d£J-«.aFJLFi_„AR.LCJ.nr^^ ---— 

IF(AREC(n.EQ.ARECi256).AN0.NDATE{I,4).NE.24) GO TO 70 

IFJlIXNJ^£a«iJ_mJLO„AO.Qi! — 

4007 IF(NSKIP.EQ.l ) GO TO 4001 

_ LfJ NL l£I.£-(L. 01_..G.Q .J.0_305 

WRITE (6, 27) GAGE, (NDATE( 256, M), M=l,2 ) iNYXXt (NDATEI 256 

L,N) , blr„3j .5J.xMmT lIID SXjAR £QJL2 5 6 Ii.N Ciia 

305 WRITE(KT) I WI D , GAGE , ( NDATE( 256, M) , M= 1 , 2 ) , NYXX, ( NDATE < 2 
..i.54,NA.fJ^=3i-..-..5J..,NIINT»MS.T,A£ECX256J.^^ 

kseq=kse’q+i 

MT INTENT I NT - — 

460 'i NtlNT = i 

- 

G0_ TO _19 - 

4006 ’write (6, 4004) GAGE, (NDATEI 256, M) ,M=1, 2) ,NYXX, (NDATE(256 

1 , N ) , N=3, __.A) » NTJMj N0STxA_REC.(1,5^^^^^ 

L f I n't =6 

_ GO TO 4007 — - 

“ 70 " ARECil )=AREC(256) 

DO 75 M=l..,5,. 

NDATE( I ,M)*NDAT£(256,M) 

7 5 „..£„O.NI-I. NUE. .... — 

NTINT=NTINT+1 

GO TO 1?._ - 

' 23 “ NSTART^l 

I F ( NXHECK.-E 0.4.0). .GO T.O„.55 ; - 

IF( NSTDP.EQ* L.OR 4 NWSH.EO.I ) NSTART=0 

.N.S.T 0P_4..E..y.. 1 )_«.QR •.< N.WSH,..E Q ..I ,)J......G.0 _T.0_ . 93 .. - ■ 

ff:('N'Co’D,EQ. ioOO.AND.LDATA.EQ.O) GO TO 800 

Jf_I..NG.00.*.G.,E.fX.Q.l..Q«AN.D.»NC.QB,s..LI..ft.Q.Q.50,.J,..N.S.T.AR..T*.0. 

~Tf~( NCOO-GT. lb664AND.NCOO. LT 4 IO 5 O) NSTART=0 

I F 1 NCOD ..GE.« 0.1 0.0., AND. NCX.D . LE iG-l l.6,).....NST. AR.T.=Q. 

■■■ IF! NC do . G E 4 T 1 bb . A N b . NC 00 4 L E 4 1 1 1 6 ) N S T A R T = 0 

I F ( NCOP .GE. ,0.1X8-*ANP»NG.Q.Q.«..G.E.»-Q1A?.-L NSTA.R 
I FI'n C db 4 G E . i ii 8.ANb.NC00.LE.1132) NSTART=0 

I F ( NCOO.GT. 013,3,t.AN.0. NGaD.,L.E .0.19XJ™NST^ 

TFrNCOb.GT.Tf sbrA’Nb.NCOD.LE 4 U99) NSTART=0 

I FI L D A T A 4 NE 4 0 ) _ N .S T A.R ,T .=_Q . - - - - 

IM NsVaRT .’EO.b) GO TO 95 



GO TO 800 ... 

95 rF(NTiNf.EQ.O) GO TO 21 

I F ( N S K I P..,E Q..,1J. _ G O TO 40.02,. . 
TFTLfiN’f.EQ.i) GO TO 4008 


4009 I F { N L I S T . .E Q . 0 ). . ..GQ ...T 0, 4 2 . . - ^ ^ r • 

WRifE(6,27) gage , ( NDA tE ( I , Mj , M=1 ,2 ) , NYll , ( NDATE ( I , N ) , 



1N = 3 , 5 ) , NT I.N I f ND.ST., AREC,(;.LLiNC.qp 

WRITE (KT) i WI DfGAGE, (NDATE( I ,M) ,M=1 ,2) 

U 5 ) , NJ.iN.T,.NDST,AR..IGJi 

’KSEQ=kSEQ + l 


,NY11, 


(NDATEI r,N 
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!lTlflI=NJ[LNI 

4002 L=I 

_...NUI-1__ _ 

GO TO 21 ■ 

4J>m-mriL6j4004LGAGE, (NDATE(1 j_MJ t Mf l_t2 ) i flYl 1 j f NDAT E ( I i N ) j 

1N=3,5J ,NTINT,NDST»AREC( i) ,NCOb 

LTJNT=0 

g'O to 4009’ *' “ ■ ~ ‘ 

600 DO 801 M=l_, 5 

801 NDAfe(257,MJ = NDATE( 

LFJ AR E_C UK GI ,_GR E F ) _ AR ECJ JL= 0 

AREC( 257)=AREC( j) ’ 

DO. 36 M = l,5 ^ 

NDATE(’2 56,MJ = NbAfE'( r,M) ' ' 

16 . CONTINUE 

NYXX=NYir ■ ' ■ ' 

AR6Ci256|=ARJC( I ) 

21 NrcE=r * ■ ■ - — - 

RETURN 


,---,.SyBRiyjJ_N£ AQ^^ _ 

LOGICAL*! OUtbuVfACARDlsb) 

CO.HHON 0UT2.ACARD_ 

1 TRi ‘ f”’ ’ ? ' 2'” » , c ' 

--.iXEAil 57J_| GAQ-F ( 3) » GAG( 3 ) t NS DTE ( 999 . ^ i tNDATE(257»5 ) 

C OM MON/ e L K2 / J f I , L ♦ N S TOP , NCH EC K , N S T OR E f I S f ORET' i C*HE Ck7n F 

— T/'t — ?!iil/AH.*JiS_EQ.tNSEQ f NOTE »MIAC»NSKIP.NLI$T»NPFG« 

” 4W"^iNDlf » abase , NSNO 

4Wj INDEX»NGO»NE£0»NUTfATRECfBTREC| ITIC NnRT” 

^ ^ ^ C > A 0 1 F F < N F j Rg Tj. N R P P EjlNP I 

--- D-Q.(1^!0N/BL jO /NH 1 »NY2 2tNM_IN«IYR.MTl ,NY2.NMnNTH iwo w 

101 f ARU 1 , NH2 f NDAY » INfo » IMN » NYl rt'Mtb i Nf^27NYEM * I DA~NyI^^ 

.-2A.AR12»nhour,,^^^^^ itmo, tda ityr.ithr riMN 

C OHHO’n/ BL K4 /LALll2l7BTi^7TR(T) - 

,_LLPAS=0 

nrefbFo - — : 

do 21 1 = 1, J 


)»gt.6ref) arec(T) =b,''6 

LA •£ Q •_0jtQl GO TO 21 

AREC( nsELEREF-ARECTn 

_21 CONTINUE 

AROSsA’IdI ' ■ ” ~ 

IfiARPliGI-^GRJF) ARO 1 = 0.0 

IF(AR02,GT.GR£F F ARD 2=0 Xb 

-JF^^X-LffiLQjO.O) GO TO 2 0 


AR D 1= El ER E F-A'r'o F 



rvii m 


tiREF£=l „ _ 

20 IFCNfFrST.EQ.O) 00 10 2 

W.8.IJ.£_L6.aii.._ELJR£FjARD3. 

17 F0RMAT(9X, ‘ ELEVATION REFERENCE^ ' , F 8. 2 , • BEGIN GAGE HE 

lieFII =.!Li-F 6 ,.2J. 

WRITE (6,1) GAGE,MTI,NDI,NY11,NY1,NH1,NM1,NREFE,ARD1,NC 

XQ.Q ; 

i FORMAT! 34X, ’GAGE MO DAY YEAR TIME NREFE GAGE D 

lEPH. CODE 'BEGIN OF T_APE _LA.BEL= . '..t ...3A4 t2XjI 2a Xi 

2 1 2 , 2X , 2 I 2 f 2 X , 2 1 2 , 3X , 1 1 T 6X , F8 . 2 f 3X 1 1 4// 1 

X=0_ _ 

1 = 1 + 1 

LMO^DAJJ U tJL ) 

lmd=n6ate( i ,2)’ 

LYJL=NDATE( I ,31 

LHR=NOAfE (1,4) 

LMN=NDATE(.I ,5i 

AAREC=AREC( I ) 

JJF i L M N.EQ.30 «OR .LM N.eQ -00) GO TO 6 

iF( i'.EQ. j) GO TO 15 

_60_T0. 3 _ 

6 IFd.EQ.J) GO TO 8 

_LF1NFIB.ST,£.Q..{L) G.Q_I0_9 

WRITE (6,7) GAGE,LM0,LMD,NY11 ,LYR, LHR,LMN,NREFE,AAREC,N 

^ j 2 /2X 

. 1., 2.1 2.jl 2X , 2„I 2., 3.x , 1 .1 J..6 X ».JL8.eZ».3X.f .lA/Z ) 

9 IF(NLIST.EQ.O) GO TO 11 

. W_RI 16(6 , 1.Q.). ._G.A G E , .L MO., L .f^.,.N Y 1 1 L Y.R., L.H B_i,LJ N .,.N R 6 F 6 , A.A R E C , 

Tncod 

_Ifii fJ3JBJ.AT i_3QX ,. 3A4.t2 X.a,2a.Xa.2j.2Xi.2.Jlx2.X. t2.L2 , 3X.t.il.t6XxF 

12,3X, 14) 

11 IF(NSKlP.EQ.l) GO TO 1^ - . — - - - - 

12 WRITMKT) iwio, GAGE, LMO,LMO, NYU, LYR,LHR,LMN, NREFE, AA 

1REC,NCOO,TR(1) - 

NUT = i 

_ KS EQ=KSE G+1 

iT” “NF’iRST=0 

NO AT E ( 2 57 j 1 ).= LMD - 

NDAT£(2 5"7,2 j=LMD 

NDATE(257,3)=LYR - 

'NDATEr2 57 ,4) = LHR 

NDATE ( 2 57 _, L MN 

AREC{257)=AAREC 

__lLLLLPAS.EQ.i_) GO I0..1.5 

GO TO 3 

8 IF(NCHECK.J_Q.O)^_GO TO 18 

"TF(NC00.EQ. 1000. AND. LDATA.EQ.O) GOTO 15 

NERRO R = 0 ^ 

IF(NCOD.GE. 0010. and". NCOD-LT .0050) NERR0R=1 



— 

F nmS ‘g ^ ? iS‘a nIr RO BM 

— f f 



J-£iJiERftOR«EO.O) GO TO 15 

18 LLPAS=1 

_Gp_TO 5 

15 NFIRST=0 ‘ ' ■ — 

BilURN 

END ■ 

SUBROUTI^ output 

COMMON 0UT2,ACARD‘"' 

1 TRXyfsf^™ sT^AGT'I^^ < 2 57 J , C 

...^, iNoJr, NCPT,NTF?fNUp\"^f rfrL'v7« 

3 rKTTNSf AR f aoiu IeTeR ^F^Nl^ ^ 

«aNPE_X,NGO, NEED, NUT, A^»Pr';^?F?’^“;'^^'*''':f-*MSE,NSNb 

- jl°SaNHlSnj«0,’?«Nl‘Niu’HT2’NMFNV^^ 

22 , AR 02 , NHOU R , N YE7n YX xf^^fTMp' i 
..— _-_3MASH_tNDEX,KTM0fKTDA,KTY k tvd ^ ^ ^ » 

E??!rT--— 1 /BLK5/TP { 2 ) 

NShQ=NSfcQ+KSEQ 

tMtVPi..E.S_»lJ_._GO TO 400 

IF < NTYPE.EQ .2 ) GO 'tO~4oT - 


lf.LNTYPE.EQ.1) 

lF<NType.EQ727 

&0_TO_402 

400 brecsarTcTj) 

-.. BRP2= AR P2* 1 0. 0 
WRITE (6,48) NOP 


lltE ,( J ! M ) !S1 ^ ?2 [ ; N Y 2 2 ?N DA T E f J '^N Fli ^ ^ ' 

2,Npri: 


- -^IHE-mvOF.R^ WRnTE(^=5 l5/28r?iHfTnTfF''''^^ 

5PUNCHES FOR '>7peR tApT UA ^0’ Of" 

-.>.tLINIERVAL--,I2/f COMPUTED TO BE=-,I5;. PUNC 

YACC=YACC+ACC 
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IF iNh Shi,* G 0 ... 7Q...A33 - 

WRITe(6,452) YACC 

. . F.QHMT(2,eX*.‘.T0..TAU PB.£C JPlT.AJIOI^..f.QB_ .GAQ.E= - 

453 IF(NUT-EQ.O) GO TO 449 

.00 ..L0.„A5.Q . 

401 IFINUT-EO.O) GO TO 449 

.W.,RII£J6,MJ.„QAS£d..!^DAieXU„Mlij!3=l-».2l^K.Y^.2.jJ_!iDAie.(J^f 

lM=3f 5JtMTINT,NDST,AREC(L) ,NCOD 

54_ FORMAT( 'O' t2X,‘LAST RECORD ON MAG= 3 A4 , 3X , 1 2 , 4 X , I 2.» 

14X, 21 2,3 X,r2,3X, 12 ,4X, I 3 , 7X , 1 1 , 6X , F6. 2 ,4X , 1 4// ) 

NUI=0 

550 WRlfE(6,50JN0Pf ,GAGE ,M tz , NOa , nV22 , NY2 ,NH2 , NM2 , A RD2 , ( ND 

1 ATE(J,M),M= 1 , 2 ) ,NY22,(NDATe(J,N>_,_N=3,5) tAREC(J) ,KSEQ.,N. 

2SE'q,MIAC,NPIL 

50 FORMATOX, » END OF TAPE NO. • , I 2 , » , FOR GAGE-'l 3A4,' E.N 
ID OF TAPE ON LABEL= • , i 2, ' / ' , 12, '/ ' ,21 2, • TI ME= ' , 12 , I 2 , 

2' READING=' ,F6.2/44X, 'END DF TAPE COMPU.TEO= » , 1 2 , • / ' , 12 

3,'/', 212,,' TIME=M2,i2,' READING = ' ,F6. 2>44X , 'THE NO- 
_40F RECORDS WR ITTEN= I 5/_/ 1 2X, • TOJAL REGOPDS WRITTEN„.gN 

5 MAG. TAPE SINCE BEG INNI NG= ' , I6//28X, ' THE TOTAL NO. OF 

6 PUNCHES FOR PAPER TAPE WAS CCMPUJED. TO, BE=.'.rl.5.,.',._.Py.MC 

7H INTERVAL^' ,12/1 

GO _TQ 450 _ _ 

449 WRITE (6,555)' 

_ 555 FORMAT ( 12Xj J NO REC0R0S_ WR I TTEN ON TAP E FOR THIS PAPER 

ITAPE'/) 

IF(NTY_PE.E0.2) GO TO ^ . . . 

4^0 WRITE (6,49) dUTZtNCOD 

_ _ 49 _FORMAT( 12X, ' DATA FOR PAPER TAPE. WR.IT.TEN .ON. TAPE. NO,,' ,.6. 

" lAT7» , FdR STORAGE" THE ERROR CODE FOR TAP E= ' , 1 4>// ) 

_ I F CNTJP E . E,Q . 2J _ GO.. .IQ__1P04 

WRITE (6,3003) NSEQ 

3003 FORMAT! i2X, '(• ,16, '1,=TQTAJ. NO. OF _RECORDS WERE WRITT EN 

T'ON ’'MAGNEYV'T THROUGH THIS PCINT DURING FIRST EDIT* 

Uj) - - - - 

3004 CALL ERM6SG(NCdD) 

GO TO 30 05 „ _ _ 

~~'402 iFlNUT.EO.O”) (50 TO 815 

M0N=NDATE(2 57,1) _ 

“■ NDAE = NDATE( 257,2) 

_ NYER=NDATE( 257,3L _ _ _ - 

■■”NHUR» ND AT E ( 25 7,4) 

_NIM^NDATE(257i5)__ - 

CTREC=AREC( 257) 

W.Ri TE { 6 ,8. 14 ) GAGE , MON , NDAE , NY 22 , NYER .NHUR, N.I N , N.RE F E , C T 

irecTncod 

814 _FORMAT( '0',8X,'LAST RE_(:ORD ON MAG-= », 3A4 , 2.X , I 2 ,_iX , 12 

i 7 2 'x , 2 1 2 ;y)(YTr 2 , 3Y, rr, 6 X , F 8 ';‘ 2 , 3x , i 4/ ) 

815 MO-NDATE( Jf 1) __ 

■ NDA=NDAtE'(J,2) 
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o O OjO OjO 0)0 Olo o|, 


JJYR^QAJf ( J , 3 i 
J^Hf<=NDATE(J, 4 ) 
NH N=NDA TE U » 5 ) 

ttrec=ar’ec( J) 

-A&D 3 _=AR 02 


IF( ELEREF.EO. 0 . 0 ) go fo 817 
AR D3= 6LEREF-ARD2 
817 WRITE! 6, 8 16)' AkD2 

J-l 6 — LQgMT( 37X , » ENDING GAGE HEIGHT _LABEL = » , F_8 . 2 , 

813 WR I T E ( 6 , 600 ) MT 2 , ND2 , NY2}7NYZ'f NH2 , N'm^' ,7 RD3 , MO , NDAVn V2 

,J:TRE^NCP0_» K_S EO , 0012 , NS E Q 


» 


600 FORMAT! IH f 36X, ' ENDING ON TAPE LABEL= • ,Y2V''- ' » 1 2 » ’ - ' , 2 
— Lilj^J<±2J2,t_^J(jf_8_.2/ 37Xt ’END OF TAPE COMmiTFOs ' , 12 » ’ - ' » I 

ERR OR C 0 0 E' "f 0 R " P A P E R"~ 'f A P ' 

■-F-~-tl^/37X»J_5j_^R^0^DS WRITTEN FOR PAPER TAPE*/3 7X.'R 

4EC0RDS WERE WRITTEN ON 'Yag;' 

thi s .,pp INT » ) 

G0_ T O 30 04 

3005 


3001 

"soof 


KSE0=0 

IfJA OAT A •EQ.o)_go to 30 

DO 5000 NNNslfLOATA ' 

-f EADl.SfJOOl ) ACARD 
FORMAT laOAl) 

-W-BJ. liiA?.! op 2 L A c A R D 

F0RMAT!28Xt8bAl) 

50PP,_CCN1!NU£_ 

30 r'e't'uRN 

END 

^ SUBROUTiNE ERMEYgIT) 

c SU6R0UT iN'E‘~FRMES'G rFF/TsFo' 

f FOR-fHE'-^ THAT IS PRESEN 

— OA_TA STORED 


BY JaI^ C CARR lO/Ti') 

i^ipOO ) FOL LOW I NG T 


■■■‘SrNf „ 

1 ‘ more, 

Iioob OR 2000 ) ~ 


.....UfJ 

IF!!, e’F. i 0 0 0 


lEX-l-ilG e_. 1 0 . anS ! i! E ? I f of In°?n ® 1 ■' 



aifi-ESXfil-lZQ-tJ 

820 FORMAK 20X, 'ERROR CODE I ' 1 14 , ' ) LAST VALUE PUNCHED ON TA 

lJ’Ji-m£S..mT___A(iR£.E._WJ.IH „XR UE__G.AtiG-e_MLiLE U 

GO TO 811 

.8.L2..._PRXflTL_8.2X.i.I 

821 FORMAT! 20X, 'ERROR CODE (' i 14 LAST VALUE PUNCHED ON TA 
I PE IS TR U E GAG E VALUE') 

811 IF( ( I .GE. r6.ANDVl^LE,29) ,o’R.*<l7Gr.l010.AND. r.LE'.1029J )” 
1.G0„._T0„,.4Q1 

IF!! f.GE.36,AND.I.LE.'49),CR.(I .GE.ioab.AND. I .LE.l 649 ) ) 

L-GO . 10 , 5.01.__ _ 

IF( ( i .GE. 50. AND, I .LE.79) .GR. ( I .GE . 1050 . AND. I . LE . 1079 ) ) 

1 GO TO 601 

I F ( ( I . g’e . 80 . AND . I .L E . 8 9 I JOR . Ti . g’e . 1 0~8 oVa NdV 1 7 LE Vl 089 ) ) ’ 

X..60. TP, JLQ.1_ 

IF( (i .GE.OO.ANO.l .LE.q9).GR. (i .GE, 1090, AND. i.L’E.l699) » 

1 G O T O 801 __ _ 

IF ( ( I .GE. 166. AND. I .LE. 199) .OR, ( I . GE . I ioo . AND . I . LE.H99 

1JL_G0__T0_901 _ 

817 IF{ f.EO.lOOO) go" fo' 202' 

_JF(i.EQ.2O0_Oj_GO_TO 201__ _ 

GO TO 301 
2 02 P RINT 100 0. I 

ioOO FDRMAf(26)(, 'ERROR CdoE= ( • » 1 4 , • ) GOOD DATA TAPE-NO APPA 
TRE NT ERRORS » } 

201 PRINT. 2000tl 

2000 FORMAT ! 2’oXj 'ERROR c 6 d'e= ! ' , 14 , • ') EStlM'ATED DATA AT SOME 
1 P.OJNT') 

RETURN 

.._.3.01 PRINT 9000. I 

906b FORMAT! 26 'X, 'ERROR CODE IS NOT VAL ID— CODE = * » 1 4 ) 

RETURN 

401 PRINT 7606 
7000 FORMAT! 20Xt 'TIME LOSS') 

IF! I.LT .30) 11 = 1+1060 
ID=II-1009 _ __ _ 

go" TO ! io',ri, 12»i3,8,8,8',8,'8t8,26,il,22,2 3,24,2 5,26,8t 

1 8 , 8 ) t I D _ 

16 PRINT 1016 
_ GO TO_812 

11 PRINT ibli 

_G0 TQ_8J2 _ _ _ _ _ _ „ 

12 PRINT 1012 
GO TO. 812 

13 PRINT 1013 
_ GO TO 812 

20 PRINT 1026 

_G0_J0 8 12 „ _ _ _ _ 

Ti ' print' 'io^'i 
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GO TO 

812 

22 


PRINT 

1022 



...GO TO 

812 

23 


PRINT 

1023 



GO TO 

812 

24 


PRINT 

1024 



GO TO 

812 

25 


PRINT 

102 5 



GO TO 

812 



PPllgl 

102 6 



_G.P TO 

812 

Tbi 

0 

forma“t 

( 20X, 

.101 

1 

.FORMAT 

{20X, 


i 

r'UNflL 

■ baTt 

101 

2 

.FORMAT 

(20X, 

ibi 

3 

FORMAT 

(20X, 


.. - JPEB_TAPe' ) 

1020 F0RMAT ('2dX f 'NCT APPAR ENT' REAS^^ 

iQ.2i._^Q^jlA_n2J)jU IM ERROR COD E -HA S NOT BEEN ASSIGNE 

- - -.i02 2_ FORMA T ( 20 X » 'LEAF S UIT E H FA I L UR E ' J 

1023 FORMAT ( 20X, • BATTERY FAILURE 'T 

-lP-2 4_F QAMA TJ 20 X.,J I MP R 0 PJ R T A P £ _I ND E X I NG • ) 

1025 FORMAT (20X, 'PUNCH m’oTDR' OPERATES I NtTRMlTTANn^^^^ 

i026_F^R_MAT.(_20X. 'PUNCH_MOTOR FAILURE') 

501 PRINT 6000 ’ 

-^P-Q-L(IRJlATi_2qALlJLUlL. ) 

IF( I,Lt»5dHI = I + I0b6 — — — 

iPr-U~.lp29 

1 ^ ^ ^ ^ ^ ^ » 23 f 8 , 8 , 8 f 8 , 8 1 8 , 8 ,'8', 8 ,'8 t 8 f 8 , 8 ) 

30 PRl’Nt~r63b 

- ...-‘A30_.p««AJ (20)^ ^XHE« 

GiO_ JO 812 _ 

601 PRINT "SO'OO' — - - 

?-^*-0-0--^a^Ari20X_,^^^ RECORDS CODE') 

I F <1 . L T . 8 0 ) 11=1 + 1000 “ - 

10= I.W 049 

5oj:q_8i^ 

52 PRINT 1052 

GO TQ_81_2 

53 PRINT T053 

- ^G-'''0_8_12 

54 PRINT 1054 

GO TO 812 

55 PRINT* 1055 
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£.Q.-IQ_A1:2 

56 PRINT 1056 

..Gfijfl. _a.iz 

57 PRINT 1057 

QQ. ID— _ 

58 PRINT 1058 

_e.a-.m.jj,2 

59 PRINT 1059 

DQ.XQ,.M2-. 

60 PRINT 1060 

. , .GO_.TO 8U. . . . 

67 PRINT 106 7 

GO.TO 812 _ _ _ 

68 p'rINT 106 8 " ' “ “ 

^GO TO 812 

70 PRINT i’07d 

GO TO 812 

71 PRINTIoH 

GO TO. 812 _ „ 

72 PRINT 1072 ' """ '' 

Qfi._TO 812_ 

73 PRINT 1073 

^G.Q_T_0. 812 

78 PRINT 1078 

„G0 JO 812 „ _ — _ _ 

79 PRINT i079 ' ' 

....GOjQ 8_12 

1051 FORMAT ( 2dx, 'GAUGE INSENSl TAff VE ' AT ' SOME 'pOI NT ON RE'COR' 

ID', I 

1052 format <20Xt ' SNOW wTt’hTuNNEI ' IN ' 

-LO .5 3... F QR.M A.I.i.2gXxJ INJ A-lie. ALLI.. eRQ.BLJ.M ! ) . . 

1054 F0RMAT(20X, ' INTAKE PIPE STOPPED UP') 

..-1055 ..FORMAT .(.20X_, 'DRIFTING SNOW ' ) _ _ _ 

1056 FORMAT(2'6Xt 'FOREIGN MATTER'In COLLECTOR') 

.-10.5_7_. F.Q..RM AT (J OX I • C AB L 6 BREAKAGE') 

1058 F0RMATI20Xt 'GAUGE TAMPEREDwifH'T” 

-JL0..59_F0RMA.T.L20X_, 'FUNNEL^FALJJEN^XNTO C_OLL£CTORJ ) 

1060 F0RMAT(2d'x, 'PRECIPITATION LOSS ”N0 “REASON " 
- IQ6.7....F.0R_MAT ( .20 X t '.P AP.ER.J.A_P E SUPPLY, RAN OUT ' ) 

1068 F0RMAT(20X, 'TIMER TURNED TO TEST POSITldN'l 

.-.iA7_0.._PQ.R.MAT.< 2.0X VmEIR PR0BL_EM ( I_CE ) * ) 

1071 F ORM A T { 20 X , » L OG JAMS DR” DE BRE "l N 'NOfCH » ) " ' 
_i.P_7.2_F.gRMALt20,X,,JVALUE .GREATER THAN_RANGE 0.F INSJRJJMENT AT 

ISQME POINT') “ ■“ ■ 

-.ldl3_...F0,RMAT.(_2pX, 'FLOAT TAPF 01 SENGAGED ■pROM^RECCROER ' ) 

1078 F0RMAT(20)(, ♦ ICE JAMMINGICAUSE HIGH G.H.)'j 

.._IQ.7.9,F0RMAT(20X, 'HEAVY ICED CREEK') 

701 PRINT 4000 • ' " 

4000 FORMA T ( 20X« ' TRACE MALFUNCTION CODE') 

IF{ I.LT.90) Ilsf+lOdO “ ■' ' 
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10^1 1-1079 

GO TO {80,81t82f 8,8,8f8,8,8»8) *10 

^ P^INI_10^_ 

GO 'to 812 

81 P RINT 1081 

GO T0“'812 

82 PRIN T 1 082 

GO TO 812 

1.080 P 0RHAT(20X t »T RAC E WIT HOUT PR ECIPITATION*) 

108 r>' 0 RMAT( 20 X, 'PRECIPITA'TION WITHOUT TRACE PUNCHES') 

_ 8 2 FORMA T{ 2QX, 1 TRAC E J.NC ONS LSJENJ.M 

801 PRINT 3000 

3000 F0RMAT(20 Xt 'TRANSLA TOR ERR ORS ') 

IF{ I.LT.iOO) “ii^i + iooo 

10=11-1089 _ _ 

GO to' (90, 91, 8, 8, 6, 8, 8, 8, 8, 8), id 

90 PRTNJ_1.09 0 

“"'go“tO 812 ' ' - ---- 

91 P RINT 1091 __ 

GO TO '812 ■ "" ■ 

1090_ Fpfy^AT( 20_X, 'R_E_AD HIAO MALFUNCTION AT SOME POINT ON REC 

lORD') * 

10 91 F OR M AT! 20X. 'HANNUALLY INSERTED READING ON DOUBLE PUNCH 

1 WRONG') 

9 01 PRIN T 10000 _ 

lOO'bo F 0 RMAT( 20 X, 'COMPLEX ERROR COOET'T 

LfJJiLl-T.iaO^OJ iIfI + 1000 _ 

I F ( 1 1 .G"E. 1 1 35 .AND . 1 1 . L E .Tl99 )"g'( 5 'fo ' 8'“ 

jp.r_.ii“LP.$i : 

go' TO { l'()0, 100, 102, r63,'fo"3 ,105’^ 106 ,''l 13 ,"108,1 08 1 1 10,111 

1 iJJJu. liljJJ: 3.1 1 1.5 ija.5 ,1 1 7 ,118,119,120. 121 , 1„2 2 , 1 2 3 1 1 2 4 , 1 

225,126,127, 128, 129,130, 131 , 13 1 , 133 , 1 34 )", ID 
— 10 0 PR INT 1024 

200 PRINT 102^' ■■■ 

go TO 61 2 

102 PRINT 1080 ‘ 

GO TO 20 0 

103 PRINT 1020 ■■ ■ 

500 ^PRLNI 108 2 

GO fo 8 12”' ' ^ * - 

105 P RINT 1024_ 

600 PRINT '102 3 - - 

60 TO 8 12 

106 PRINT 1024 

_ GO_Ti)_ 60_q 

108 PRINT r020 - 

_7pO__P_RIJ^T 108J) 

GO TO 8r2 ■' 

11 0 PR INT 102 3 

GO t“(5-1o6 " ' ~ 
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800 

PRINT 

1081 





n'i 

PRINT 

1024 


...-G.il, .T,0.. 

_5.Q.O 

115 

PRINT 

1012 





GO TO 

812 

117. 

PRINT 

.1.Q70... 


PRINT 

1054 


QO TO 

8U 

110 

pri'nit 

1060 

806 

PRINT 

.IQ2_4_. 


GO to 

812 

_.1|9.. 

PRINT 

.1013... 

803 

PRINT 

1052 


.....PB.I.N.T. 

..105.5,.,. 


GO TO 

812 

„1.?.P„. 

PRINT 

1023 


GO TO 

803 

121 

PRINT 

1024 

804 

PR I NT 

1052 


GO TO 

812 ...... 

12 2 

PRINT 

1024 


GO TO 

804 

123 

PRINT 

1024 

.....805.. 

PRINT 

1057 


GO TO 

812 

12,4. , 

PRINT 

1024 


GO to 

805 

U5.. 

PRINT 

10,5.5... 


GO TO 

804 

126. 

PRINT 

1062 


GO TO 

200 

127 

PRINT 

1013 


GO TO 

700 

128 

PRINT 

1023 


GO to 

700 

129. 

PRINT 

1030 


GO to 

200 

.130 

PRINT 

1081 


GO TO 

806 

131 

PRINT 

1024 

807 

"print 

To 91 


GO TO 

812 

133’ 

print" 

1072 


PRINT 

1073 


GO to 

812 

134 

PRINT 

1020 


■’Gcrto’ 

"800 



8 PRINT 80001 

80001 F0RMAT{ 20X, »ERP0R CODE HAS NOT BEEN ASSIGNED') 

812 RETURN 

END 

BLOCK D ATA 

CQMM0N/BLK4/LLL( i2 ) /6LK5/TR ( 2 ). 

DATA LLL/31 t28f31.30.31t30t31*3 Ij^ j 3_1 j30 / 3 1 / ♦ T R / 1 H_ 1 

IHT/ 

END 
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